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GEBRUihERS CLUB 



een club van 6502 
gebruikers 



Het doel van de vereniglng Is: het bevorderen van de kenni sui twlssel Ing 
tussen de gebruikers van 6502-cofnputers , zoals KIM, SYM, JUNIOR, AIM 65, 
System-65, ACORN, PET en CBM, APPLE, ATARI, ITT 2020, PC 100, OHIO 
Scientific Challengers, etc. etc. 

Dlt doel wordt o.a. gereallseerd door vijf maal per Jaar het huisorgaan 
" DE 6502 KENNER " te publlceren en vijf maal per jaar een clubbijeen- 
komst te houden, en wel als volgt: 



Verschljnlngsdata 
DE 6502 KENNER 

derde zaterdag 
van de maanden: 
f ebruarl , 
mel , 

augustus, 
oktober , 
december . 



Bl jeenkomsten 
van de club 

derde zaterdag 
van de maanden: 
januar i , 
maar t , 
mel , 

Sep tember , 
no vember . 



van clubfacili- 
de cassette- 



Naast deze aktivltelten kunnen de leden gebruik maken 
teiten, zoals de KIM-Club-KIM , de KIM-Cl ub-3UNI0R , en 
bibliotheek. 

De KIM GEBRUIKERS CLUB NEDERLAND is een volledig onaf hankel i jke ver 
eniginq met statuten en een bestuur. De club is ingeschreven bij de 
Kamer van Koophandel en Fabrieken voor Hollands Moor derkwa r t i er te 
Alkmaar, onder nummer 634305. 
De samenstel 1 ing van het bestuur is 



Voorzi tter : 
Sekretarl s : 
Penningmeester: 

Organisator : 
Redaktie : 

Accomodatle : 

Adres van de vereniglng : 
Lldmaatschappen : 



thans als vol gt : 

Dagelijks bestuur : 

Anton Muller 

Sinj. Semeynstr. 78-1 

1061 GM Amsterdam (020 - 8602if5) 

Ruud H. Uphoff 

Voorburgpad 10 (085 - 816935) 

66k3 EM Arnhem (19.00 - 20.00 ) 

Herman C. Burgers 
Manus Peetstraat 57 

1183 LH Amstelveen (020 - 419958) 
Leden : 

Rinus Vleesch-Dubois 

F. Nightingalestr . 212 

2037 NG Haarlem (023 - 330993) 

Wlllem L. van Pelt 

Oacob Dordaensstr. 15 

2923 CK Krlmpen a.d. lOssel 

(01807 - 19881) 

Riche A. van Steen 
Vingerhoed 11 

6953 BZ Dieren (08330 - 21004) 

zie adres v.d. sekretaris 

fl. 40,= per kalenderjaar 
gironummer 3757649 t.'n.v. 
H.C. Burgers te Amstelveen. 
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De 6502 KENNEK is 
een uitgave van de 
KIM G«bruikers Club 
Nederlaitd. 



Adres voor het iiizen- 
den van en reakties op 
artikelen voor de 6502 

4 ' 1 < J 



Willem van Pelt 
Jacob Jordaensstr. 15 
2923 CK Kitepen 
aaa de IJsatIb" 



Redactie 8502 KEN- 
NEE: 



Vaste n}ed«w«ck«rss 



- Anton Milller 
-Willem van Pelt 

- Frans Smeehuijzen 



Freelance medewer- 
kers: 



- Frans Eiigelsinan 

- Renee de Hoop 

- Fridus Jonkman 

' . ■ ( 

Geheel of gedeeltelijke 
overname van de in- 
houd van de 6502 KEN- 
NER zonder toestem- 
ming van het bestuur 
is verboden. Toepas- 
sen van gepubliceerde 
programma's, hardwa- 
re etc. is alU»eB toege- 
staan voor persoonlijk 
gebruik. 



De 6502 KENNER ver- 
schijnt 5 x per jaar. 



Copyright (C) 1982 KIM 
Gebruikers Club Ne- 
darlaod. 



De voorpagina is een 
aquarel van een KIM, 
geschilderd door: 
Rinus Vleesch Dubois. 
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.l«.jw 

2. 

,3. , . 

4. 

5. 
B. 



8. 

9. 

10. 

11. 

12. 
13. 
14. 
15. 
16. 
17. 



V,'' '1H-T5-- 

Van I'p^-laffBtuur 

... door Anton liuil*r 



Oorkond»> uitgerei||$ anil. 
... Hanny d* Vries - v. d. Winden 

Oor|ipn(M»> uitsereikt aail 
... Si 9P d9 Vr i es 

Bri«f van Ir. VonK 

Van de redaktie 

dopr Wiii«M van Poit 

Cassetteb I b I i otheek 
. . . door Hans 0t>t4»n 

Lessbaar programmer en in BASIC 
... door Roud Uphoff 

Pocket Calculator 
..•..^^or Siep de Vries 

Patches OP MICRO-RDE Cvervols dl.ll) 
. . , door ,Bd r i H^n**^ ' 

dOd? RUUd UPhOff 



riarkt I ttf^ ; 

Buss 

Buss 

MTA^i •n Aanbod 
Asenda 

Medede I i ns 



1. 
2. 



5. 

6. 
7. 

8. 

m. 

16. 
27. 

'^2^&s 

35. 
48. 
48. 
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VflW HET BE3TUUR 



B*st* Club«*not*nt 

D*z* k9T wi I ik dm pavina mhw MlJd»n aan d» v*rkri Jvbaar-^ 
h*id van bepaaid* softMar* voor d* KXHt di* nwilicht van b*-' 
lanfl is voor onz* JUNIOR-b*zitt»rs. E»n aantal software pro- 
duKt»n> die biJna ied*r*«i» Mel ill to»zit Mil hebbenv ziJn 
eeh assembier/tekstedt-tor en een of «ild*r# V«T«l«'van BASIC. 
Wat betreft de assemb I er/teksted I tor hebben we die van Cart W. 
Hoser CPK edit buf f erruimte) « verkriJsbaar biJ Insenieur*- 

'Wreau iehfod»ff Echtemachi aan 161 t* Eindhovwn i.. eh Micro 
fid© van Peter Jenn i n«isi waarvan d© verkr i Jsbaarheid doof mi J 
nos steeds in onderzoek is. Wat betreft de BASIC'S hebben we 
TINY ^tC. te verkriJsen b«j ITTY BWWM30MPO*liWt ^0. i©ic 
23189 t© San Jos©, CO 93153 (U.S. fi. ). ©veneens te verkriJsen 
bij The 6502 Program Exchanse. 2920 Moana. Reno. NV 8SS0S* , 

•'tJ.S.A. Vra«» teverii*>tyV» software brochure aan CI «lolt*r 
insluiten). ZiJ v©rkopen o. a. XPLO, FOCAL, FCLBS* Tekt edttoti 
assembler (ASnB5). MICROCHESSt HUEY, WUMPUS, 

mCf^^T BASIC is ¥^riJ9baar ^'fT MH^rlMV. att. R. Ned#» 
la. Mangdolstrasz© 10. D 7778 Markdorf (West Duitsiaf>d). Tel.s 
07544 - 3058. voor zowel de KIM als de JUNIOR. PriJss DM 288 
\nei\ 13ie tfehrwertsteuer. De #if€%:lWtMR de KIM-versie aan te 
passen voor de JUNIOR staan sepubiiceerd in ElektOur nr. 221 
van maart 1982. MICROSOFT Bif^IC is ook verkriJsbaar biJ JOHN- 
SON COMPUTER. P.O. Btyn'lSS^^,^ ¥imii,k$i»'''i3lhio 44256 U.S.A. 
BiJ MICROSOFT BASIC heb J© ook het boek uit d© SchauM' s out- 
I ine series, "Theori© and problems of Prosrammins with BASIC" 
van Byron S. Gottfried nod is. Uitsevers McGraw-Hill Book Cy. . 
ISBN-nr. t 0-07-023842-1. Nu we het toch .^v«lr boeken N»t»b^ii^A. 
e©n soedkop© Mani©r om aan i^^en assemb I er*' te KcfMwii (ONi 'mmt-^-^m ' 
exper imenteren) , is de aanschaf van het boek "Praktical Micro- 
computer Prosrammins - The 6502" van Walter J. Weiler. #en. 
m. i. ers soed boek van 459 pasina's, waarin ai les wat ie over 
d© 6502 wilt w©t©n wordt behandeld. ©n waarbiJ J© dan op de 
Koop toe nos s rat is (na het tekenen van een verklarins voor 
copyri«ht«> een hex-dump van een assembler Rrlist^ waarvan 
de source- II St i ns achterln het bo©K is afsedrukt. De kosten 
van het boek bedrasen 32.95 US-dp Mar. fkcl. verzendkosten. 
Met boeK IS verkriJsbaar t»lJ uit94v4ffji^'^OT%^tfi ^echnolosy 
Books, Box 62, Evanston, IL 60204 8U.S. A. ), ISBN-nr. s 
0-930594-98-8. Voor sof tware-men^en. die ook we I t^ns met 
hardware M lit e^ atoetent katt ik het boek "Prosraatofnv & In- 
terfacing the 6502; with Exp©riments" van Marvin L. de Jons 
aanbeveien. uitsever Howard W. Sams & Co.. Inc.. 4300 W***^ 
62iid Street f Indianapolis 462^* U.8*A. 



.jflfai|iic>n Mul t*r% , 
. voiprzi tter. 



DE 6502 KENNER 



LUODSJaftftOI^A^^Op'ftAMrtft 




Vfliil HET BESTUUfi 



De eerste lustruM bwM^Kli^^^ de KIH club op 2B itaart 
i. I. is een enorm ^eslaasde da? aeweest. Er waren G5 le- 
deni Haarvan er 5 hun vrouM hadden neesenoiien. Ruin 21 le- 
den hadden hun systeen bw zichi dus ook aan die oproep is 
ruidschoots voldaan. Even een korte saMnvattins van Mt 
er al leiiaai te doen ttas. In de ochtend de opstellins v« 
de apparatuur en dentonstraties. Er lus ca. een orset van 
Bas van Betweii met drie klaviereni dat Mrkte op een 
SYH* Kt 8 toonseneratoren (flY3-e918) van General Instru- 
HentSi Haar een uitstekende kwaliteit seluid uit KMau. Als 
je niet beter wist zou ie denken dat het tgB 'apniaal' or- 
4el Mas. Dan ms er nos een orseli net X W^^fi^mX Wir 
8312i Verder een KIH (van mi J) die een aesproken hex duMP 
ditvoerdei net sebruik Maklns van de DT1B50 Oi a i talker van 
National Setii conductor. Een PCm (= fllMES) van Riche 
van Steem net o.a. dewonstratie van FORTH en het schaak- 
proarawta van Theo Kortekaas dat teaen zichzelf stond te 
%htf(en. Een Junior van De Haani die een aantal 228 Volts 
laiipen net aan en uitschakelen. Een KIM van Oral* die 
<M» stoPlichten op een verkeerskruispunt reselt. Een 
-WH systeea van Bob van de OudeHceterins (heieiiaai zeif 
ontwikkeld). net daaraan aekoppeld een Tektraiics 9ra- 
f isch beeldscherM en een M-plotteri tekeninaen te 
Plotteni waarbii sebruik ac w a akt kan Norden van een 
arote hoeveelheid standaard synboleni die net een druk 
OP de knop tevoorschijn kunnen Morden sehaaid op e Ike 
Nillekeurise Piek op de tekenins. Een Junior net een 
kOMPleet adainistratie srsteeih aeschreven in Machinetaal. 
Be CBH van Hermn 6uraers> met daarop de ledenadnini- 
stratie van de KIM club, aeschreven door Ruud Uphoff in 
assetibleer taai. De KIM van Gerrit de Vries (broer van 
Siep)i Met daaraan sekoppeld een hijskraan wbouMd van 
een Fischer Technik bouMPakket< MaarbiJ hiJ een proaraiwa 
heeft seKbreven in aachine taali dat ten 'leer'-tnde en 
een ■vitw^nmA^^iotfi )it»fli m het i»t«er* tot het 
oneindiae herhaalt. Een KIM van Theo Kortekaas. aet daar- 
aan HkoPPeld tuee diaproiectpreni die door de KIH Norden 
beftiiindt aiwiiii hm imiraamivr wl ^mmm wer lew* 
leidins van de diashoH. Getoond werd de produktie "RITS*. 
De flpple Van Uite Schroederi alSMede een videorecorder m% 
Kieuren IVt Naarop hij de dansvoorsteliiM *Vertc* liet 
zien. Haarbij voor ons coaputeraars het iieest interres- 
sante de unsturlns van 48% fietslaiipjes nasi die de be- 
iKleidtonde iichtbieldtn verzonden. &i iait b«t lot iem 
logKoOPiHins. van het selijknaaiae inaenieursbureaui wt 
bet iwx CSaK systeeik De is een krachtiw 16 
if^ Wi llRlli mmtam «tiNmKt net 512 Kb MNi alV- 
breidbaar tot 1 Mb en hard disk van 18 Mb uitbreidbaar 
tot 1E8 lib onlinei cartridge tape back«P net cyclic 
r«iHiMmar chect. KoifiN vn m mmmm HMfiivratic mtt 



standaard 8 terainai aansluit naelukbeden (I1S2S2) 
veer f. Ge.B0>= Het wheel iterkt onder de besturina van 
UNIX aet 8 sebruikers selijktiJdis aansesloteni coMPilers 
o.a. COBOL. FORTRRN, BASIC, PASCAL etc. Kosten van UNIX 
oneevwr f. 7.S8Bi»> kosten van de coiiPiiers tussen de 
f. LIBBis en f. 2.818, » per stift. Ers fraai. Jos KooPiians 
is een aantal Jaren seieden besonnen net de verkoop 
van Saperboards en andere OSI syste«en en doet no in 
systeeen zoais ik zoiuist heb oMschreven, e.&a. in een 
saeeniierkinasverband/paraplu-orsanisatie onder de naaa 
TRICQW, saaen aet Ineenieurs bureau Schroeder c« CAB 
Holland. Alle andere aamiezieen aet hun systeaen Moeten 
het aiJ niet kwalijk newen, dat Ik hen niet heb op- 
lesoMd, kortHes oadat het aij aan tiJd ontbrak oa atles 
te bekiJken. 

Na cte lunch volsde het officiele aedeelte van deze das, de 
benoeains van Siep de Vries tot Ere-Voorzitter en Hanny de 
Vries - van der Uinden tot Ere-lid. Siei> heeft zich uit- 
zonderlijk verdiensteli jk aoaaakt voor de verenisim door 
o.a. de oprichtins van de club, het in srote liJnen bepa- 
len van het Karakter van de club, het^liiidMt v« een aan- 
zienliJke hoeveelheid hoosMaardlae lezinsen de aicrocoir 
puter betreffende. het enorae seduld ttaamee hij keer op 
leer, sons tot diep.in de nacht, ciubleiMl^ die aet tech- 
nische probleoen zaten uit de brand Mist te he I pen. 
Nosaaals van harte sefeliciteerd aet je benoeains, Siep. 
In dezeifde Periode dat Siep voorzittir ww« hc«Hft Hannr 
het sckretariaat servnd. Net de benoeains van Hanny 
de Vries tot Ere-lid, is zij ons eerste en enise vrou- 
aeliJke clublid. lets oa bijzonder trots op te ztJn. Hist 
zij er in het besin biJzooder aeinis v«n, thans zeesen de 
Noorden als KIM, RAH, ROH etc. haar boekdeien. Haar biJ- 
zcsidere inzet, door zich seheel belanseloos drie iaren in 
te zetten voor de opzet en de adainistratie en resistra- 
tie de club Icdcn en ai las aat daar oa been hanst, 
heeft ons doen besluiten haar voor te drasen voor deze 
ere tittet. Nosaaais vanaf deze Piaats van harte proficiat 
aet W'Wimxm Htamr* ~^ - 




Anton Muller, 
Voorzitter 
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brje\;ej^ 



Ir. R. Vonk 

St. Wi M i brordusi aan 2 
5591 B6 HEEZE. 

Geachte Redaktie> 



Heezei 20-2-82 



BiJ deze twee tips aansaande de Uitsebreide JUNIOR-cotnputer 
il. BiJ la«e Baudsnel heden (110 Baud bv. ) bliJken er moei-* 
liJkheden te ontstaan als bv. ' M' i ngetoetst wordti 
waarop de coMPuter met 'HEXDUMP:' moet antwoorden. 
flileen komt er seen 'HEXDUMP:', maar apekool. 
Reden: de subroutine RECCHA wacht na het label RECC een 
bittiJd T? het tweede stoPbit wordt met (waaroM?) 
afgewacht. In bovengenoemd voorbeeld stuurt de computer 
al een ASCII-teken terug tiJdens de tweede stoPbiti de 
UARlWii^ dan de k I uts . i ; -rw-'^iwif^n'^el^en se- 

schreven) Teletype Output rout 1 ne heb ik v o o r d a t 



aan de 
voead '• 
anderd 
Bi Jv. : 



uitvoer begonnen wordt 
JSR DELBIT (20 12 13) ; 



worden door 
12 D4 
0C SB 
0C 83 
0C 86 



bv. 

4C 
20 
20 



met het startbit toege- 
anders moet de Eprom ver- 
een JMP te zetten. 
80 0C 

12 13 -jt'i^-j \* ' ij>^-: 

12 13 \ 



4C D7 12 



2. 



fils in TM of Pli de routine DUMP/DUMPT sebruikt wordt om 
een stuk seheusen op' de band te zetten waarin pasina 01 
voorkomt < stack I )> kunnen er vreemde dingen gebeuren 
biJ het inlezen; het teruskeerad res ( i n de stack) kan 
dan vermi nkt /overschreven z i j #^^1l^4H^'Watct i j k seen 
probleem als: 

inlezen en uitlezen (save en get) via TM 



idem 



via TM 

uitlezen via PM (of omgekeerd) 

In het gevai het fout saati staat het prograuma wet 
in het geheugen, alteen moet via Reset de zaak tot df 

orde geroepen worden. Het zoJuist (met probie>iM>n) i*^|*"V 
selezen programma is dan wel bruikbaar. 

No 3. Nog een vreemde zaak in PM-Editor is.^ warme CEND- 
start (17C5). Opseven van BEGAD en ENDftD moet wel 
(subr. INPflRi 17CD), maar heeft geen effekt? de 
waarden Morden met oversenomen in 00E2/E5. 



Hopenlijk is dit een biJdrage in geval anderen tesen 
.|iC(.o^t9^i jii^ probiemen aan iopei\f^,.. 



R. V. 
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In d« eerste Piaats een enkele opmerkins over de thans 
aangeboden programma'si waarvan m. i . het meest opvalt 
hoezeer de belangste l l i is aericht op het feit dat er 
'fmmmre prosraMmeertaieni zoais BASICt en tussen dat en 
de machinetaal, zoiets als MICRO-flDE en de assembler 
van Moserj bestaan. Hoewel ik enerziJds konstateer dat 
onze clubieden voortdurend stoeien met machinetaaiT aan ', 
de andere kant neem • k waar dat er ooK behoef te bestaat 
aan " Prosrammeer-seMak* t ais ik het zo even mas zevsen. 
Vanuit de idee dat onze ed i t i es zoveel moaeliJk moeten 
aansiuiten bu de behoef ten van de .1 tdfn*. .fifori^t _«it1^racht 
daaraan t© voidoen. Ruud UPhof f =«cHi»t ^ 
maar ook onze Belsische vriend Van Nieuwenhoven Koen^ 
van wie U binnenkort een serie aanpassinsen op de KIM-l 
BASIC kunt verwaeh«»fi# hebben htifi aaii«facht erop sericht. 
Een tiJd seleden demonst reerde Ruud Uphoff> eamen met 
Rinus Vieesch Duboisi hoe men met behuiP van een PET vele 
JUNIOR'S kon best tf f smid 1^ dat jMSKMlUK te maken werden een 
aantai demonst rat i e-pro9ramma' s semaakt. Er is toen be I oof d 
e. e. a. te publiceren. Pan die belofte komen we nu teeemoet. 
Wat de aanseboden herpiaatsins van de Pocket Calculator van 
Siep de Vries bet reft < het is niet all een een mooi prosraMMa 
maar ook nos even een terusbi ik t>P Amersfoortt waar Siep 
de hu id|»..,l$jr«es die ook hem toekwam. 

Op 26 februari en> inellen votsens Plan veriopen* op 10 
aprii J. I. werd in Klubhuis ' De Boskant' te Den Haas 
een resionaie biJeenkomst seorsan i seerd. Tom den DuiJf 
vervoisd* het initiatief van John vafi '80ran«. Op eerst- 
senoemde biJeenkomst was ook Ruud Uphoff aanweziSi 
die de ca. dertis aanwezisen informatie verstrekte over 
die ¥Ifl 6522. Een schi tteretide CxonMav! Het enthousias- 
me van de leden I aat zich niet door een> voor blje*n'^ 
komsten zo riskante das> van de wiJs brensen. 

Nos een opmerkins over in te zenden materiaai. Indien U 
hardware of software hebti schroomt U met het in te 
zenden. Mi J zullen proberen vast te stellen of Piaatsins 
moseiiJk is. Probeer in elk sevai wei aan een aantai 
dinsen "IN^ ^ienW#ft. BiJ^morbeeld cfe vewenste vorMi in wei-^ 
ke het I iefst een beschriJvins van het prosrammat labei- 
namen en voorai ook kommentaar. Als het kan uitsetypt. 
Verder staan we U zoveel Moveftik btJ*- Wu schromen het 
Kontakt met U niet. Gezamen I i J K valt er heel wat te doen* 
Maar denk voorai niets ach> dat is niet soed senoes om 
in te sturen. Dan dretst hm^ sevaar timt •r te wei n is 
kopy komt. Laten we niet verseten dat het clubblad er niet 
aileen voor U isi maar voorai ook door U. 



W.L. van Pelt. 
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CftSSETTEB I BL I OTHEEK^ 

ZoaTsTn DE EsiiKENNER a I is aansekond i 9d. saat de rsdaR- 
tie d© service uitbreiden met een cassette-service. Er 
ziJn OP het moment twee cassettes leverbaarf opsenomen in 
KIM of "JUNIOR hypertape formaat. ftis de source-code 
(aileen Micro fide nos) aanwezis isi dan wordt dat op de 
andere ziJde van de cassette ook opgenomen. In ieder se- 
val is de object CtMeemaai) aanwezis. Wat er op de casMntf* 
te staat? en hoe» wordt met een beget eidend schriJven 
duideliJK semaaKt. GebruiK en beschr i j vi na^van de pro- 
gramma's is in DE 6502 KENNER of KIM KENNER te vinden. 
'S* achter de proarammanaam M»tekentt ooK in nicro 
Ade source aanwezis. 



INHOUD KIM CASSETTE NR. 1 KRNT 1 CODE 

==i=5sr===;si==i»«t gW M >j*ai»ii «ima»g«s«apgg»<W»»======= 

ID NflflM NR. KIM/B502 



01 MftSTERMIND 

02 MASTERMIND v. 

03 TflLENSTUDIE HULP 

04 TftLENSTUDIE HULP 

05 SCHftflKPROGRAMMft DL 1 

06 SCHftAKPROGRAMMfl DL 1 * 

07 SCHftftKPROQRAMMA DL 2 

08 SCHflfiKPROGRAMMft DL 2 

09 TARGET 1 KOLOM 
00 TARGET 1 KOLOM 
08 TARGET 6 KOLOM 
0C TARGET 6 KOLOM 

0D MOV IT + SCHAAKOPENINGEN 

MICROCHESS 

0E MOV IT + SCHAAKOPENINtSEM 

MICROCHESS 

0F VERSNELLEN MICROCHESS 

11 VERSNELLEN MICROCHESS 

11 SUPERTfiPE 

12 SUPERTAPE 

13 REACTIESNELHEIDSMETER 

14 REACTIESNELHEIDSMETER 

15 VERKEERSLICHTEN 
IB VERKEERSLICHTEN 

17 LOCATE EN REPLACE ' - • 

18 LOCATE EN REPLACE 

19 EPROM PROGRAMMER 
lA EPROM PROGRAMMER 
IB TAPE COPY 

IC TAPE COPY 



4 

i§ 

13 
11 
11 

8 
8 
8 
8 
8 

S 



Sfl_ 

0000 
0000 
0100 
0100 
0000 
0000 
1780 
1780 
0200 
0200 
0200 



EA_ 

0400 
0400 
0400 
0400 
0400 
0400 
17E2 
17E2 
0364 
0364 
0400 



06F2 0iBA 



2000 
2000 
3E00 
3E00 
0200 
0200 
0200 
0200 
1780 
1780 
0200 
0200 
0200 
0200 



INHOUD KIM CASSETTE NR. 1 KANT 

=:si=====s=ssassKBBBStSBass:aESBasasass; 



2 MICRO ADE SOURCE 



ID 
01 
02 
03 
04 
05 
06 
07 
08 
09 
0fl 
0B 
0C 



NAAM 

VERSNELLEN MICROCHESS 
VERSNELLEN MICROCHESS 
SUPERTAPE 
SUPERTAPE 

REACT I ESNELHE I DSMETER 
REACT I ESNELHE I DSMETER 
VERKEERSLICHTEN 
VERKEERSLICHTEN 
LOCATE EN REPLACE 
LOCATE EN REPLACE 
EPROM PROGRAMMER 
EPROM PROGROMMER 
TfiPE COPY 
IPE COPY 



NR. KIM/6502 



SA 

3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 
3600 



2090 
2090 
3F4D 
3F4D 
0384 
0384 
02D6 
02D6 
17E5 
17E5 
035C 
035C 
0400 
0400 



EA 

3F3B 
3F36 
41 8C 
418C 
48A4 
48A4 
3F8C 
3F8C 
4052 
4052 
45C8 
45C8 
5B50 
SBSe 
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INHOUD JyNIOR_CflSSETTE_NR^_l_KftNT 1_C0DE ^ 





MQQM 
r niMHn 


MR KIM/RSa9 




FO 


011 


pnwuPRQTP non kjoor uppk' 

LrUIMVCrCO X C. L/HU IMHMn WCwrX 




0200 
0200 

10.^ lulu 




Dl'> 
lOZ 


L>Ul<iVt.r(s X H UHU riHHrl WCCr\ 


1 n 


032F 




<.C.NUWaLHu list ' ; i J ' 


if 


noon 
Dionn 

KllCDU 






U^lcllO 




Ml ic T p nn V 


i f 


lu^luKI 


Di'>Qn 


Icib 


Ml IC T on V 


1 r 


UjCIoKJ 

10^1010 
0200 


D17 
k) f 


UUINH 1 X nt-K ■ - 


f - 1 7 

17 


0i-'>cn 
026B 
1A77 


08 


DOKftTIMER 


09 


ftUT. REG. UITLEZING 


16 


1A00 


0» 


flUT. REG. UITLEZING 


16 


1A00 


1A77 


0B 


LOTTO 


15 


0000 


0082 


0C 


LOTTO 




0000 


0082 


0D 


MOONLftNDER , 




0000 


00C4 


0E 


MOONLflNDER 




0000 


00C4 
023B 


0F 


SC/MP INTERFACE ftFREGELEN 


18 


0200 
0200 
0100 


10 


SC/MP INTERFACE AFREGELEN 


18 


023B 
018A 


11 


BROWSE 




12 


BROWSE 


it 


0100 


01 8A 


13 


STOPWftTCH 


15 


0000 


004E 


14 


STOPWATCH 


15 


0000 


004E 


15 


BELGISCHE LOTTO 


18 


0200 


04D0 


16 


BELGISCHE LOTT0~ 


18 


0200 


04D0 



INHOUD JUNIOR CASSETTE NR. 1 KANT 1 SOURCE 

ID NAAM ^"''^ NR.KIM/65fl2 SA Eft 



01 


CONVERSIE DAG NAAR WEEK 






02 


CONVERSIE DAG NAAR WEEK 






03 


ZENUWSLAG 




18 


04 


ZENUWSLAG 




18 


05 


MUSIC BOX 




47 


06 


MUSIC BOX 




II 


07 


DOKflTIMER 






08 


DOKATIMER 




17 


09 


AUT. REG. UITLEZING 




16 


0A 


AUT. REG. UITLEZING 




16 


0B 


LOTTO 




15 


0C 


LOTTO 




IS 


0D 


MOONLANDER 




IS 


0E 


MOONLANDER 




15 


0F 


SC/MP INTERFACE AFREGELEN 




18 


10 


SC/MP INTERFACE AFREGELEN 




ii 


11 


BROWSE 






12 


BROWSE 




16 


13 


STOPWATCH 




15 


14 


STOPWATCH 




15 


15 


BELGISCHE LOTTO 


18 


16 


BELGISCHE LOTTO 




18 



Programma's in de cassetteb i b I i ot heek ziJn of origineel 
van onze clubleden of hewer k i risen van pr og ramma' s uit het 
First Book of Kim. Al le rechten van de prograwma's bl ij- 
veY* aan de auteurs voorbehouden. De kosten van de cas- 
sette ziJn alleen maar kostendekkend en n i et bedoeld om 
de Programtna's te Kopen. DE CLUB IS EN M0RDT GEEN HflNDEL! 
Kosten per cassette: fi. 12i50. 

Besteilen van de cassettes onder opgave van naain> adres ©n 
nummer van de cassette (KIM = 1, JUNIOR = 2), versezeld 
van een s i robetaa I kaart of bankchepue (groene of EURO) 
h'ljt Hans Otten> Ottobor rensoed 33i 3871 MJ HoevelaKen. 
Levering kan en i se M«ken duren. Andcre wii^Vft van trnv^Ml- 
I en best aan niet. 
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-Op het ouenblik is d# Kfr-^m naar "MICROSOFT" basic lueer strooi;. 
dat kornt '■.••oora. 1 omda.t. yeel JUNIOR bezitters hun systeern nu in 
eeri dusciardiie staa.t hebben -sekre-sen da."t. het echt de naa/ii vari 
"Personal Coriif:'Ut-er" rnai* gaan ■■.■•oeren: Meer *ieheu-3en^ een ASCII 
keyboard en een '...'ideo disK'la.y zion hiervoor de '..-'ooriuaarden 
Eigenlijk ^jebeur^ hier iets in de vg^-keerd|' j..'o Vgorde ■ De trotse 

■sraTfifi'ier en in asserrib ler en yaari fiu o'-.-'ens'tapp'er"! Of:' een hO'Siere 
p-roEjra/iiriieer-fcaal.- die bij uitstek iieschikt is om t-e leren denken 
iri die siriif:-el# v#^ft die Moor een comK:'U'fe#r nodi«i is. 'E'^ d<i^®i I 
m o e + d e d o rfi ri'i e rn ac h i fi e t-' r e c i e s in e e n p n o 3 r a/i'i rfi a. uj or- d e n o K' -i e d r- a/aen » 
Basic laat een '-.-'oortdurende i n+.erao+. i e +-i.4ssen mens en niaohine 
toe J die echter ook eeh a,9nta.l ernsti^e nade len hee-ft- 

De '■..'ri-jheid die basic de ^:^ro=-irajTiriieur toestaat is een Mari de 
oorz -allien Mari he"t ontstaari '-.'ari de e nor me onleesbar^e PuinhooP' 
die dan «#B "prosjramma" uiordt aenoeriid. Men hoef-t de diver-se 
tydeehf*if1:#n di^ re«ielmatiij iets in basic PUbliceren ma^'eens 
door te b laderen om diverse '-.'oorbee Iden te kunnen no em en. 
Hu is het ontst-aaf"! Ma^'i der aelioke rcmmel niet zo '-.-'er wonder li.jk 
alii we ook nog K§^ertk#n dat basic wordt iiebruikt o>:- kleine 
systemen.. die niet zion ui t iter ust met een O'v'ercajc-aciteit 
aar"i =jeheu3en. Bovendien haa.lt de snelheid vari de meeste micro- 
processors OP «^^rfn stukken na. de snelheid vari de protessionele 
■grote oomruters . Later i.ue eens -yaari zien i.ue Ike su-3-iiest ies 
het haridboek '-.'ari b.v. de PET de i-iebruiker doet om te Uomen 
tot een zo hoo'S»3«IOi?e li Jke executiesne Iheid en minimaal aeheuaen 
■lebruik- 

V e r I.I.I ijder .a. lie onnodiiie spa.ties. 

Veri.ui.jder -a lie REM statements. 

Zet zovee I mo^jeliJk instruct ies op een re-ael. 

Gebruik de "nul" elementen Man een matrix. i : 

Deze a^Miezen zfin soj^&r meer Jwi steals me alleen moeten 
letten op snelheid en •yeheuifen-E.iebruik. Ze bereiken echter 
ook no-£» iets .ariders ^ We kriJ-gen een vo Istrekt on leesb.a.-5r 
protiramrna. Rls er na en i tie tiJd iets a^n moet morden Mer-ariderd 
»aia.t dat heel moeiza..ajfi • Va-ak be-3ri.ii':'t de .auteur zel-fs zi.jri 
eifen pr oiir.^/iima al riiet meer ! We pr-aten daj'i no=i niet over 
het aariPassen van zo'ri proi-tra/firna voor een andere machine. 
H#t eohter oqk hee l ariders^ 

Met opzet heb ik hierboven de be lart-ari.jkste adviezen voor een 
opt i male executiesne Iheid .achterwese gelaten. 2e zi on n-amelijk 
NIET in stri.jd met de eisen voor leesbaarheid vari een pro- 
^mm&i Inte^efideel- ^' - ' ' " ■» i"' V 
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PRQGhflWWEERTflLEtt 



GEBRUIK GEEH COHSTflNTEN MinDEH IN EEH PRTiGPRMMfl 
DEFIHIEER HLLE GEWONE VfiRIflBELEH VOOR DE EERSTE MflTRIM 
KIES DE VOLGCiRDE VfiH DE DEFINITIES ZORGVULDIG 
DEFXNIEEg Gip^y^IftPEtEH HIDBEH JN EEN PmQmmm 

ffel dat we de ijetallen van 1 tot 106 in een matrix 

li^ wim4m>K^m^^f099 fi<fl)=fl+i • next 

Dit is de "v,i«®t" methode. Er is ?>espaar"d op aeheu aenru i rnte 
eri *tM #9©!* e©l^#fliueff* -all© iKtasfeli ike Katies te laten. 
Ook is het nul element ■...••af-i de niHtrix hier ten onrechte tietoruikt^. 
iuaardoor de onlosische af trekkin=> fl-1 moet Plaats vinden. 
Eraer is dat er een enorme tiJd wordt uers^i Id met het 100 maal 
opnieuiu inlezen '...'eri de const ante "1". Ook moet de nehele matrix 
biJ het detinieren '...'sn 7 p laatsen worden opseschoyen om Plaats 
uoor deze yariafeitlfe te maken. Daarom wi I ik yoorst«t:|Jn> 

100 fl=0:B=l :C=100 '* ' ■ ' 

110 DIM fla00::' 

120 FOR fl=E TO , ' ' ' 

130 : fl<fl>=ft ■ 
140 NEXT ^• 
150 END 

0^:■ de 5 uersp-i Ide bytes Moor R(.Q') kioken we n let. Het is Mee 1 
lo-3ischer de 73e w-aarde van f\ te linden in i=i<?3> i.p.v fit 72;' 
Laten we nu een klein practisch probleem nemen. Het komt re-se l- 
rnati=i '...'oor dat we een machinetaalroutine in een basic proHiramma 
willen Eiebruiken. Een handiae methode is het schriJven van 
deze routine met een assemb ler^ om hem MerMolaens om te zetten 
in DflTfi statements. DaarbiJ moet elk byte n-B.-sr de.- i niA.^ l in-.rdAn 
om^erekend en het is dus P-rettis dat dit klusJe door een stukJe 
software " Eiereedschap " in basic k-an worden opseknafst. " ife eerste 
listin-3 laat een der^elioke routine ok- de min nt mi=^i=r -ii^hrui- 
WWfim^' m^axie zien. Eezitters van een PET ot CEM zu Hen 
no-3 i.uel kans zien deze routine te ontci-jtenfi^o-f ri©* :#j*ii^r; 
Ze zullen daa/- misschien helemaal de moeite niet yoor r*«i»#r»/maar 
het sieheel tiewoon intyn>en en of> cassette zetten. En dan werkt 
het. Dat i.uel. J-ammer voor bezitters >...<3n een APPLE of een KIM 
warit eer die er ooit achter komen wat die aratische tekens 
en diverse dec i male adressen te betekenen hefoben. . . . 
Het kan ook adders ! De uo laende lijst laat cr-recies hetze ltde 
f^ro^rajiima. zien^maar- ok- een manier die schiJnbaar- te-sen a lie 
resels indruist* Mtt klinkt aek.raaar- dit proaramma hee-ft r»!et 
ten doel^te doen uiaar het voor *ieschrAi.'en i-.m-=iar hf^t -t=i=»t 
hier oio m-aar lietst 1..5 bladziJde " leesbaa^-'" te zi-in. NatuurliJk 
tunctioneert het we I. fllleen neemt het de iiisjantische m¥mjmm^ 
ruimte v^i inter dan 3K in bes la«> omdat lue elkp- rf^-ai^l 'jonr tijd 
m miW^^mmmim aan onze laar-s hebben selaiot.als deze de 
l#eil»aarhoid ook maar eni^szins dreisde aan te tasten. Er is 
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iiebruik -aemaal-ct yari subrou-tines.. niet omciat een proarajiiniadee I 
Maker nodi«» was..maar- ornda't deze een P-roiiraJiiriia loiiisch onder 
Merdelen. Het hoo+cJf:-roiirajfin-ia. bestaat dan ook £• leohts ui+ de 
resiels 100-178. Daarna Molsien de diverse "block's". He eerste 
subroutine wasrmee elk KTo^jrarftnia dient te be-si nnen is het 
detinieren yan de uariafoe len. Ook oonstsriten niorden a Is 
Mar iabele uitneMoerd. Dit levert een keuriiie lijst op vari 
Mar^iaiiie len en hun betekenis. Een kleine toelichtinij bij de 
commentaren •■ Ik hei: REM st4tem#Ptt in mlih irvt^r'#>t-*e'ter 
door het teken " C" '.'er'-.-'arryen.. orndat het i.uoord REM de leesba-af'-heid 
vail het coriimentaar atbreuk doet. Een kuiestie yan sriiaal<^ die de 
e©iBi»*tibHt©it met A^Mi^lais* '^alf afe -##1^ tapes 

leest '..■'erschi.jnt er Eieuioon REM in een list inn en onv3ek»#r'd. 
Merk ok- dat de war i-aliie len zoyeel moiie I i o k ziin '-.'oorzien uari 
loaische na/nen^ die al iets over hun iiebruik vertellen. Jajisruer 
dat Microsott hier- een hinder liJke bef:erkin=i heett^ In de naarn 
van een v-ar-iabele masj ijeen foasic-s leute liuoord uoorkoriien. His 
men dus de constante 1 u.ii I benoemen is "ONE" niet toegestaari 
omdat de basiointerP'reter dari het s leute lujoord "ON" za.l herkennen. 
Het doe I vaj-"i de ■-.•■ar iatoe len liJst is niet alleen ma3r de over- 
sieHteUikheid van het t9ro«!trM>ma^ maar vooral de executie snte lhiid 
Het uinden '■.■'■3t'\ de waar de '-.'ari een '..'ar iaije le saat nairieli jk een 
f.ac:tor tien sneller dari het inlezen yari een constante ^ dus 
is de wSnst bi nnen een FOR-fCKT eriorm ' Be tiJd^ nodi's ti^otr- 

het inlezen '-.'an een constante.. i.uordt nu sebruikt op een monient dat 
i.ye altiJd tiJd iienoe-Ei hebben : TiJdens het inter act iet -iiedee Ite 
van het proararfima^ waarin dit toch orn inyoer van de sebruiker aan 
het vranen is. Voor strings is de ti-jdwinst OMer i iiens nihi I. 
Toch staan ze om een af'idere reden in de li Jst ^ Hatuur li-jk '•.'aniueae 
het o'v'erzicht.. maar- bovend i en is de vol«iorde in de liJst niet 
lui I lekeur i-=i : De var-i-abelen staan in de '■.'o l-^orde i.Maar in ze het 
rfieest luorden i-iebruiktj want de eerste sede-f inieerde '■.'ar i ahe le 
uiordt ook het eerst ujeer teruHisevonden. Weer tiJdwinst dus. 
Eehalve in deze subroutine staari we basic niet toe om nos een 
andere uar iabele of in het prosramma te creeren en het is ei«>en- 
li-jk een sebrek Man basic dat men tij^€>rts een P^isarajftilia executie 
zomaa/-- var i abe len mas detinieren. 

Standaand basic mist structuren zoals IF-THEN-ELSE en 

brennt het niet vender dan IF-THEN. In zo'n aeval ka^"i men toch 
weer kiezen tussen nette en vieze methoden. Principieel bliiven^ 
Na. THEN behoort nooit een ander statement te staan dan een s^ronsf. 
Construct ie vari b.v een splits ins w-aarbiJ routine "TRUE" ot 
"FALSE" rnoet worden doorlopen: . ' ' -, - - .^'-.^r. 



100 IF fl=ZERO THEN 120 




120 : : : GOSUB 680 



130 END 
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Nl#t 0r*t3tom^ idveel moae liJ^k ae^^ir THEN -ll ^?^y#-t©nJ 
Microso-Pi: «fooit i.-'oora+':ja.3ride SK-a+ies in een reite 1 wet"! Bah! 
GeluUkia is er een nioije li Jkheid orn onze eiaenwi Jsheid bot ,te 
te vieren door een dubbele Punt aan het betiin van de re^e t te 
zetten. 2o ujorden tiMee of rneer geneste FOR-NEKT loops leesbaigf'.' ' ; 
evenals de re-sels die tot het ELSE-*iedee Ite yari een IF-THEN ' 
behoren. 

In deze staat is het protirariima voor iedereen te bear i jp-en.- en mat 
wee I belAiwPiJk^r is-' Er is een #oed stuk documentatie en we 
kunnen later het pro-i-ira/rirna een'..'oudi-3 iMioziiien. 

Het aldus geschreven proararurna beraen lue op in een achterarond- 
aeheuaen en het «>aat in ons archied*. En nu de ^dl&re kant van 
de zaak : . i 

We moeten nu een versie hebben die we slechts voor een 

doel OP band o-f= disk zetten: LADEN IN HET GEHEUGEN en RUNNEN. 

Hoe het proiirajiima is -sesohreven interesseert ons sieen zier. flls 

het maar luerUt. En snel. En zo klein moaeliJk is ! 

Baaraan voldoet het pro?jramma wat we zojuist hebben bekeken 

beslist niet. fl I le spaties en REM statements n-aan we dus 
we-iiaooien en we zetten zoveel moaeUjk statements op een reael. 
Omdat dit met de hand een ondoenliJke zaak Is. 2a I een mooi 
•sestructureerd pro=irajfirfia in basic lue 1 altiJd een onmo=ie li Jke 
wens bliJven ? Dus toch maar weer puinhoop schriJven ? 
Ja hier moeten we natuurliJk mer- iets hebben om het vui le 
werk te doen. En dat is een ProEira/ririia in -assembler vari ca. 
3,-"4 K dat ik de volaende keer zal Publiceren. Nu zien we het 
resultaat van het «>ebruik ^in cterde liJst. Da-ar staat exact 
hetzel+de prosrajfima noa eens.. rfiaar nu ziJn zoveel moselijk 
instruct ies op een re=je 1 iieperst. Wat de basic compressor hee-ft 
2>edaari is zelts met de hand on»6y^liJk op de meeste systemen^ 
w.arit het aantal bytes per re-Eie 1 is nu maar lie+st maidmaal 24i0 
en PRINT-FOR-DRTfl-LET etc. ziJn dan slechts 1 byte ! 
Deze afdruk van het resultaat is iets wat ik eiuenlijk niet had 
mo-sen doen. Hio dient slechts om U een indruk van het eindresul- 
taat te -sfeven. Meer niet. Het is dus nooit de bedoelin-3 een 
aldus i-iecomprimeerd proarajrima met LIST tevoorschiJn te roeieen/' 
laat staan te wijzi*ien ! Daa^^voor dient het ori sinee 1.. waarv-airj Illl- 
'f^^fiisjl'ifi'^S^' in een seconde een aebruiksk lar-e nieuuip '..'.=-rs i ' 
Htmmt met de BflSIC-COMf^SSOR. 

Ruud Upho-f-f . 



)»:*>t:>t:>f:>f:jf:,t:4:jt:,f:,f:,H,j:4:,t:,t:^:4:4:4:,t:^,^:,^:^^:,^.^.^.^.^. 

* GEWIJZIGD REDflKTIE-flDRES ! ! ! *= 
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100 PR I NT " ; : I HPUT " BEG I H .. END " X .S'-l F V-X>203THENPR I NT " CRN T F I X ON SCREEN " : ENB 
1 1 0 F0Rfl=623T0635 ■ POKEfl .13: ■ POKE 1 58 . 1 2 : N= 1 880 : PR INT" .; : FORfl=XTO VSTEP 1 7 
tm f RINTN"DflTfl " ; •• F0RB=fiT0fl+16 : IFB>VTHENI40 

130 PRINTMIDf <STR*(:PEEK<I0>..2>".. " ; . 
1 40 NEXT : PR I NT " li " : H=N+ 1 8 ■ NEXT : PR I NT " 3" .: : SVS5006b 
REflDV. 



iXRUCTUREri FORM 



100 
110 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 

230 
240 

260 
270 
280 
290 

300 

310 

320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
460 
470 
480 
490 

500 



GOSLIE 450: 
PRINT CLEAR*: 
GOSIJB 700: 
GOSUB 380 
GOSUB 220: 
PRINT HOME*; : 
SVS WfiRM: 
END- 



E WRITE 

CLEAR*; : C 
FOR L00P=BEg1n to LRST STEP LIHE = 
PRINT NUMBER "DflTfl : 
FOR FiriDRESS=LOOP TO LOOP+COUNT 
IF flUriRESS > LAST GOTO 310: 
■ BVTE=PEEK':; ADDRESS > : 
EVTE*=STR*<EVTE> : 
BVTE*=N I D$ ( EVTE* .. T W0>,;, , . 
PRINT EVTE*+TERri*.; : 



NE^T:I 

PRINT ERCK*+ELFlHK* : 
NUh1EER=NUMBER+0FFSET : , 

NEXT:, ,;, 



INITIALIZE VARIABLES ' 
CLEAR SCREEN 
GET USER INPUT 

PREFIX KEVEOARD RECEIVE BUFFER 
WRITE DATA STATEMENTS iHN SCREEN 
SET CURSOR OH FIRST DATA STATEMENT 
RETURN TO DIRECT MODE WITHOUT "READS 
■' RETURN -S" FROM KEVEOARD ARE DUMPED. 
AND WILL APPEND DATA STATEMENTS TO 
THIS PROGRAMM. 

DATA STATEMENTS ON SCREEN 

CLEAR TV SCREEN. CURSOR "HOME" 

FOR 17 BVTES..EACH STATEMENT 

PRINT LINE NUMBER AND KEV WORD. 

FOR EACH BVTE IN THIS LINE 

SKIP BYTES Wmm LAST ABBRESS 

GET BVTE. 

PUT IN STRING, 

AND REMOVE LEADING BLANK. 

PRINT EVTE AND TERMINATOR 

GO DO NBX^r^WS FOR THM LINE. 

REMOVE LAST TERMINATOR 

SET NEXT LINE NUMBER. 

mm GO DO HS^T'4^INE • . . 



C PREFIX KEVEOARD RECEIVE BUFFER 
FOR BUFFER=EUFFER TO EUFFER+FILL: C FOR 15 LOCATIONS FROM JUFFER. 

POKE BUFFER ..CAR I RET: 
NEXTl 

POKE INDEX. FILL: 
RETURN 



C PUT "CRLF^' IN BUFFER 

L SET "15 BYTES IN BUFFER" 



ADDRESS 

BYTE 

BVTE* 

TWO 

TERM* 

LOOP 



II II 

2 
■I II 



C INITIALIZE VARIABLES 
C CURRENT ADDRESS 
C CONTENTS OF CURRENT ADDRESS 
C STRING REPRESENTATION OF SAME 
r CONSTANT FOR BVTE EDITING 
C TERMINATOR BETWEEN BASIC "DATA" 
« 1 ix-i ^ ^ k 3^^^^ I ^^^^ - FOB-NEXT ■> 
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510 


LINE 




s 17: - 


c 


NUMBER OF DATA TO FIT ON A LINE 


520 


COUNT 




* 16: 


c 


sftrc NUM^/COONTiS wsm 


530 


BACK* 




= CHR*<157>: 


c 


BACK SPACE C ASCII/ CBM ) 


540 


ELflNK$ 




= CHR$<:32> : 


c 


BLANK < ASCII > 


550 


NUMBER 






1- 




i€i 








t 


OFFSET TO NEXT LlM WMMR 


570 


CLEAR* 




- CHR*< 147.:' : 


c 


CLEAR SCREEN.. CURSOR HOME < ASCII 


580 


BUFFER 




= 623 : 


[ 


KEVBUhRD RECEIVE BUFFER <flDI3iREbb;' 








= 150: 


c 


IHImK ihnO fCE¥BOflRD BUFFER 


600 


CAR I RET 




= 13: 


L 


"i-RLF" IN AyijII 


toly 


FILL 




= 12 • 


r 

L 


NUMBER UF L-RLF b TU PUT IN BUFFER 


€2@ 


vmimn 




= 204 : 


c 


MAXIMUM NUMBER OF EVTES IT CAN DO 


630 


HOME* 




= CHR*<19>: 


c 


UURSUR HOME 


640 


WARM 




= 50066 : 


c 


ADIiRESS FOR "END" WITHOUT "READV. " 


650 


BEGIN 




0: 


c 


BEGIN ADDRESS 


66£i 


LAST 




0: 


c 


LHbT HDDREb 


665 


SIZE 




0: 


[ 


SIZE OF MACHINE LANGUAGE PROGRAM 


s?e 


f?ETURN 










680 












690 






L 


USER 


INPUT ROUTINE 


700 


INPUT "BEGIN 


AUriRESS ".; BEGIN: 


[ 


GET BEGIN ADDRESS ■ 


710 


INPUT "LAS 


■T 


AnriRESS ";La^T: 


. 1. I 


GET END ADDRESS 


720 


SIZE = LAS 


;T- 


BEGIN: 


c 


COMPUTE SIZE 


730 


IF SIZE < 


MftXIMUM GOTO 770: 


c 


IF NOT TO LARGE ..GO RETURN 


740 


PRINT : 






L 


ELSE. PRINT "CRLF" 


750 


: PRINt ' 


CAN'T FIX ON SCREEN" : 


c 


f^lHT ERROR MESSAGE. 


760 


GOTO 700: 




c 


REPEAT UNTIL PROPER INPUT 


770 


RETURN 










REPlBV. 











«r,r 



COMRRESSEE FORM 



I 00 GOSUB450 : PR I NTCL$ : GOSUB700 : GOSUB380 : GOSUB220 : PR I NTHO* ; : SVSWA : END 
2ii PR I KTa_* i ' PORLCNBftOLftStiPL ! : PR I NTNU " DATA " ; : FORfl»s443TOLO'»'CO ? I FflD>LfiiOT03 1 0 
270 B V=PEEK C AD > : BV$=STR$ ( BV > : BV$=M I D* ( E .. TW > : PR I NTBVf +TE$ ; 
310 NEXT: PRINTBA*+BL*:NU=NU+OF: NEXT: RETURN _ 
380 FCM^MMIUtC»#-i : W9^Sli ;aft • • • 

450 flD=0 : EV=0 : BV$=" " : TW=2 : TE*=" .. " : LO=0 : LI = 17 : C0=16 : Efl$=CHRf < 15?) : EL$=CHR$ (32.-:> : N 
U= 1 009 : 0F= 1 0 : CL*=CHRf- < 1 47 > : BU=623 : 1 N= 1 58 : C A= 1 3 : F I = 1 2 : M A=204 : HO$=CHR$ U 3 > : W A=5006 
i:BE«0:Lfl*@stI«@!RETyRM ^ ^ > . , . ;y ^ 

700 IHPUT"EEGIN ADDRESS ".: EE : INPUT "LAST ADDRESS •';Lft:SI«Lfi-BE: IFSI<Mfi60T©77# 
740 PR I NT : PR I NT" CAN - T FIX ON SCREEN" : GOTO700 
770 RETURN 
REflDV. 
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Cffl-CUL KIM 


SOFTWARE 


LIBRARY PAGE 01 


0010: 0000 


, CIMfeCUL ORG *0000 POCKET CflLCULATQR PROGRAM 


0020: 






0030 : 




*: 1 HE F uLi..OiA)lNG PROGRAn i 


0040: -.,,1 




H PuCKE 1 CHLuULATOR 


0050: 


* 




00G0: 




iiVPU 1 / OUTPUT lb hlTHLR TELbTYPE 


0070: 




OR KIM f'vEYBuARD AND Di^PI-AY 


0080: 


* 




0030: 




INPUT IS GIVEN BY PRESS I Nb THE 


01 0a- 




KEYS rUR A DECIMAL NUMBER 






FOLLOWED Br m FiM-TiOwKEY 


0120: 


* 




0130: 




*■ * f- UNCTIONS! 


6)1 4fi 






0150: 


* 


A = + = ADD NUMBEf? TO RESUL ! 


01B0: 




B = - = SUBTRACT NUMBER FROM RESULT 


®t70t . 




#H _ ._»^ kite II V #^1 V* gMfttW^I •* TW/ kit tlut*^r"'M 

C ss s MULTIPLY F«BuLT BY NUnBER 


01S0: 


if: 


D = / = DIVIDE RESULT BY NUMBER 


0130: 


»!•! 


E = C = (vLfiAR INPUT NUMBER 






F = A = CLEAR kEMjLT 


0210: 




AD = R = f^EMAINDLR OF LAST DIVISION 


0220: 




DA = I = NUMBER STORED IN MEMORY 


0230! 




+ = C = NUMBER FROM MEMORY 


0240: 




PC = "/. = ChLCULATE PERptNTAGE 


0250 : 




GO = C = CLEAR RESULT 


02G0: 


"■'1 




0270: 




THE PROGRhM tlHi-vtib USE Ur THE 


02S0: 


* 


INTEGER CALCULATIOrJ PACKAGE 


0290: 


*: 


' INTCAL' PARTNO 770110. 


0300 : 




A Oi-BYTE VERSION IS USED. 


0310! 










WHENEVER fi DIFFERENT 






NUMBER OF BYTES PER 




* 


NUMBER IS REQUIRED, THE" 


0350: 


* 


DEFINITIONS CONTAINING 


03E0: . 




SIZEi SIZEAt sizeb, sizec. 


0370? 






0380: 


* 


DACCU, DACLSB AND LDADAD 


0390s 


* 


HAVE TO BE CHANGED TO THE 


0400: 




Pf^PER VALUE IN RELATION TO 


0410: 




SIZE AND THE PROGRAM MUST BE 


0420: 
11410": 




REASSEMBLED. 


0440: 




AUTHOR: SIEP DE VRIES 


0450: 


* 


BRUGSTRAAT 32 


04G0: 




LIMMEN CNH) 


0470: 




THE NETHERLANDS 


04S0: 






0490: 






0500: 


* 
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SOFTWARE LIBRfiRY 


PAGE 


02 




3510: 




















9520: 










* * * definitions: 








95301 








* 










3540! 


0000 








SIZE *= 


«0003 








3550: 


0000 








SIZEfi * 


SIZE 


-01 




SIZE - 1 


3560: 


0000 








SIZEB * 


SIZE 


+03 




SIZE * 2 


3570: 


0000 








SIZEC * 


SIZE 


+02 




SIZE * 2 - 1 


9580: 


0000 








FIfiDftT * 


$1740 






PIA TO TEST KIM/TTY 


3590: 


0000 








INITRP * 


*17FE 






INTERRUPT BREAK TRAP 


8G00: 


0000 








NMITRP * 


*i7FA 






NON-MASKABLE INTERRUPT TRAP 


3B10: 




















9E20: 










* * * aENERAL SUBROUTINES: 




3G30! 




















aE40: 


0000 








SCflNDS * 


*1F1F 




> 


DISPLAY DATA ON LED DISPLAYS 


3650! 


0000 








GETKEY + 


*1F6A 




• 

1 


READ DATA FROM HEX KEYPAD , . 


3660: 


0000 








DUTCH + 


»1EA0 




> 


PRINT CHARACTER ON TTY 


3670: 


0000 








GETCH * 


*1E5A 




1 


mm mmmiJER from tty 


36S0: 


0000 








crlf + 


$1E2F 




« 


PRINT CARRIAGE RETURN/LINE FEED 


3630: 


0000 








PRIBYT * 


*1E3B 




• 


PRINT BYTE AS 2 DIGITS 


8700: 


0000 








MONITR * 


»1C00 








3710: 




















3720! 










* * * CHftRftCTER SET 


























0740: 0000 








PLUS * 


*002B 








Z)750: 0000 








MIN * 


$002D 








07G0: 0000 










«002A 








3770 


: 0000 








DEEL * 


*002F 








0780: 0000 








CLRNUM * 


$0043 








0790: 0000 








CL«Bi-L 


$0041 








0800 : 0000 








REP * 


*0052 






VI. ..' 


0810: 0000 








MEMIN * 


*0049 








0820: (2N300 








MEMOUT * 


*004F 








0S30! 0000 








PRCNT * 


*0025 








0840: 0000 








VRfiflG + 
* 

* STRRT CF Pf 


*003F 








0S60 










?OGRA« 






0870 




















0880 


; 0000 


DS 






START CLD 








INITIALIZE ..: r 


0890 


: 0001 


78 






SEI 










0900 


: 0002 


R9 


00 




LDftIM 


MONITR 








0910 


: 0004 


BD 


FE 


17 


STfi 


INITRP 








0920 


: 0007 


8D 


Ffi 


17 


STA 


NMITRP 








0930 


: 000A 


fl9 


IC 




Lmtn mmrn 


/ 






0940 


: 0000 


8D 


FF 


17 


STA 


INITRP 


+01 






0950 


: e00F 


8D 


FB 


17 


STA 


NMITRP 


+01 






0^0 


: 0012 


A0 


00 




LDYIM 


9m 






RESULT mm 


0970 


: 0014 


ft2 


74 




LDXIM 


NULL 




t 


MEMORY ARE BOTH 


0980 


: 00 IE 


20 


13 


03 


JSR 


LOAD 




? 


ZERO 




f mm m. rn 




UDXIM 


MEMRY 








1000: 001 B 


20 


27 


03 


JSR 


STORE 
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iiiis 00 IE 


20 


00 


02 


GETINP 


JSR 


INPUT 




READ NUMBER + FUNCTION 


102® 


; 0021 


fl2 


F3 




WEDER 


LDXIM 


DftTft 




ftDDRESS DF 


1030 


: 0023^ 


m 


00 






LDYIH 


$00 






1040 


: 0025 


C9 


2B 






CMPIM 


PLUS 






1050 


: 0027 


D0 


05 






BNE 


NOftDD 






1050 




















1070 


s 0029 


20 


35 


03 




JSR 


ODD 


n 


fiDn npFRQNin 

n u Lj kj\ [_r\r^iiMiy 


1080 


: 002C 


B0 


40 


A 




BCS 


PROBLM 




f'fiRRV <nFT TW Fi?RnR 


1090 


: 002E 


C9 


2D 




NOflDD 


CMPIM 








1100 


: 0030 


D0 


05 






BNfE 


NOMIN 






1110 




















1120 


: 0032 


20 


47 


03 




JSR 


SUB 


? 


SUBTRACT OPERM^E 


1130 


: 0035 


B0 


37 






BCS 


PROBLM 


5 


CARRY CLEAR IS ERROR 


11A0 


! 0037 


C9 


2ft 




NOKiIN 


CMPIM 


MftftL 






1150 


: 00SS 




05 






BNE 


NOiiOflL 






11E0 


















1170 


: 003B 


20 


5F 


03 




JSR 


MPY 


1 


Mil! TTPf V nPPRQMn 


1180 


: 00 3E 


B0 


2E 






BCS 


PROBLM 


m 

1 


PARRY <=!FT TCJ rsDnp 


1190 


: 0040 


C3 


2F 




NOMftftL 


CMPIM 


DEEL 








B0 


05 






BNfE 


NODEEL 






1210 




















1220: 0044 


20 


flC 


03 




JSR 


DVI 


• 


DIVIDF HY nPFRQWn 


12301 0047 


B0 


25 










f 


C5flf?RY CLEAR m FRRHR 


1240 


0049 


C9 


41 




NODEEL 

'« mat mm^ ^mm mtm 


CMPIM 


CLRftLL 






1250. 


004B 


D0 


05 






BNE 








$mm 


> emn 


PI2 


74 




CLEAR 


LDXIM 


NULL 




1270: 


004F 


20 


13 


03 




JSR 


LQhD 


- p 
S 


iu<nT 1 non 7PRn 

wwOi L-uriLr ^cr\U 


12S0: 


0052 


C3 


25 




NOCLER 


CMPIM 


PRCNT 






1230: 


0054 


m 


0C 






BNE 


NOPER 






1300: 




















1310: 


005E 


20 


5F 


03 




JSR 


MPY 


V 


Ml li TT PI Y RV 


1320: 


0053 


B0 


13 






BCS 


PHO®LM 






1330! 


005B 


02 


77 






LDXIM 


EENHQN ; 






1340: 




















1350: 


005D 


20 


flC 


03 




JSR 


DVI 


■ 

7 


DIVIDE BY 


1360: 


0060 


B0 


0C 






BCS 


PROBLM 


» 


ONE HUNDRED 


1370: 




















13S0: 


00E2 


C9 


52 






CMPIM 


REP 






1330: 


00B4 


D0 


05 






BNE 


NO REP 






1400: 


00BG 


ft2 


S5 






LDXIM 


DftCCU 






1410: 


00GS 


20 


13 


03 




JSR 


LOAD 






1420: 


00&B 


4C 


IE 


00 


NQREP 


JMP 


GETINP 






1'4307' 


2i 


m 


W2 




JIR 






1440: 


0071 


4C 


IE 


00 




JMP 


tSETINP 







1450: 

1470: 
1480: 

1SI30S 
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1510: 
1520: 









* * >|5 




ZERO DEFINIT 


1540: 






m 








1550: 


0074 


00 


WULL 








1560: 


0075 


00 








1570: 


0076 


00 






40I7! 




1530: 


0077 


00 


EENHON 


... 


'PVJVJ 




1530: 


00 7S 


01 






via 1 




1600: 


0079 


00 




_ 






1610: 


007fl 


00 


MEMRY 


— 


$00 




1620: 


007B 


00 






$00 






0070 












16406 


007D 


00 


NUMCAR 




*00 




1650: 


007E 


00 


PREV 




$00 




16B0: 


007F 


00 


flCCU 




s;00 




1670! 


00S0 




ACCMSB 




ACCU 


--03 


1G30: 


0030 




flCCLSB 


■M 


ACCU 


+03 


1630: 


00S0 




DACCU 




ACCU 


+ 06 


1700s 


00S0 




DflCLSB 


^^: 


DACCU 


+02 


1710: 


00S0 




LOADAD 




DACCU 


+06 


1720: 


00S0 




ACCSAV 




LOADAD 


+02 


I73ts 


@0@0 




HULIND 




ACCSAV 


+01 


1740: 


0030 




MULGNT 


H: 


MULIND 


+01 


1750: 


0030 




COUNT 




MULCNT 


+01 


1760! 


0080 




DATA 




$00PS 


1770: 












1730: 


0200 






ORG 


*0200 





1730 
1S00 
1S10 
1S20 
1S30 
1840 
1S50 
1360 

ftTi 

1SS0 
1830 
1900 

1310 
1920 
1330 
1940 
1350 
1960 
1370 
1980 
1330 
2000 



ACCU - SIZE 
ACCU 4- SI EE 
ACCU + 2 + SIZE 
DACCU + SIZE - 1 
DACCU + a * SIZE 



0200 A2 F3 

0202 A0 00 

0204 20 27 03 

0207 20 32 02 

020A A9 00 

020C 35 7D 

020E 20 71 02 

0211 C3 43 

0213 F0 EB 



* 

INPUT 



SUBROUTINE TO INPUT 
DATA + FUNCTION 

THE RESULT IS SHOWN, 
A NUMBER CAN BE KEYED IN 
FOLLOWED BY A NON-hWf«iIiGfiL 
KEY, WHICH CAUSES A RETURN 

CLEAR INPUT, STORE IN MEMORY 
AND GET FROM MEMORY ARE 
PROCESSED IN THIS SUBROUTINE 



LDXIM DATA 
LDYIM $00 
JSR STORE 
WERONP JSR OUTPUT 
LSftlH $00 
STA NUMCAR 
WERINP JSR INCHAR 
CMPIM CLRNUM 
BEQ INPUT 



PERFORM OUTPUT 
Flf^ST 



CLEAR DIGIT- 
COUNTER 

READ NEXT CHARACTER 
CLEAR NUMBER 
RE-DISPLAY RESULT 



DE 6502 KENNER 



LUODSJ8MO|^A5:(Op'ftAMrtA 



i i 




5V3TEEW SOFTWARE 



KIM SOFTWARE LIBRARY 



PAGE 05 



2010 


1 021S m 


49 






gHPIM 


MEMIN 






2020 


•■ 0217 


D0 


0F 






BNE 


NOMEMI 






2030: 0213 


05 


F3 






LDO 


DOTO 




5 


2040: 02 iB 


85 


70 






STO 








2050 


: 021D 


05 


FO 






LDO 


DOTO 


+01 




2060 


: 021F 


85 


7B 






STO 


MEMRY 


+01 




2070 


! 0221 




FB 






LDO 


DOTO 


+02 




20S0 


: 0223 


85 


7C 






STO 


MEMRY 


+02 




2090 


: 0225 


4C 


07 


02 




JMP 


WERONP 






2100 


: 022S 


C3 


4F 




NOMEMI 


CMPIM 


MEMOUT 




1 


2110 


: 0220 


D0 


0F 






BNE 


TESDEC 




* 


2120 


: 02 2C 


P5 


70 






LDO 


MEMRY 




7 


2130 


: 02 2E 


S5 


F9 






STO 


DOTO 






2140 


! 0230 


ft5 


7B 






LDO 


MEMRY 


+01 




21S0 


f 0232 


35 


FO 






STO 


DOTO 


+01 




21G0 


: 0234 


fl5 


7C 






LDO 


MEMRY 


+02 




2170 


: 0236 


S5 


FB 






STO 


DOTO 


+02 




21 ©0 


! 0238 


4d 


m 


02 




JMP 


WERONP 






2190 


: 023B 


C3 


30 




TESDEC 


CMPIM 


' 0 






2200 
2tii 


: 023D 

1 i02^' 


10 
80 


01 




NODfEC 


BPL 
RTB 


GODEC 




« 


2220! 0240 


C3 


30 




GODEC 


CMPIM 


S30 






2230: 0242 


10 


FB 






BPL 


NODEC 






2240: 0244 


AG 


7D 






LDX 


NUWJOR 




1 


2250 


024B 


D0 


03 






BME 


NOTFRS 






2260 


0243 


ft0 


00 






LDYIM 


S00 






2270 


024fl 


84 


F3 






STY 


DOTO 




« 


22S0 


024C 


34 


FO 






STY 


DOTO 


+01 




2290: 


024E 


34 


FB 






STY 


DOTO 


+02 




2300: 


0250 


38 






NOTFRS 


SEC 








2510! 


0251 


E3 


30 






SBCIM 


'0 




7 


2320! 


0253 


20 








ROLO 






? 


2330 : 


0254 


20 








ROLO 








2340: 


0255 


20 








ROLO 










fi!2S6 


20 








ROLO 








2360: 


0257 


02 


04 






LDXIM 


*04 






2370! 


0253 


20 






ROLWER 


ROLO 






■ 


2»8W« B2SiR 


28 


F9 






«3L 


DOTO 






2330: 025C 


2E 


FO 






ROL 


DOTO 


+01 




2400: 


025E 


26 


FB 






ROL 


DOTO 


+02 




24i»8 mmw 


e# 








©ex 








2420 ! 


0261 


D0 


FG 






BNE 


ROLWER 






2430: 


0263 


EG 


7D 






INC 


NUMCOR 






2440: 


0265 


05 


7D 






um 


isWJMCOR 






2450! 


0267 


C3 


07 






CMPIM 


S07 




■ 


2460: 


0263 


30 


03 






BMI 


WERINP 






2470: 


026B 


20 


OS 


02 




JSR 


ERROR 






24S0: 


02BE 


4C 


00 


02 




JMP 


INPUT 






2430: 




















2500: 





















MEMORY IN 
DISPLAY NUMBER 



NUMBER CtJWES 

FROM MEMORY 
DISPLOY IT 



; LEAVE CHORflCTER UNKNOWN 



IT IS DECIMAL 



OBTfilN VALUE 

DIGIT LEFT POSITIONED 

IN flCCUMULOTOR 



5 SHIFT DIGIT IN 



5 TEST IF TOO MANY OIOITS 



20 
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2510! 
















2520: 








* * * SUBROUTINE TO REOD 


0 


25301 








* CHOROCTER FROM KIM 


OR TTY 


2540 










* OUTPUT 






2550 
















25G0 


0271 


09 


01 




INCHOR LDOIM 


*0i 




2570- 


0273 


2C 


40 


17 


BIT 


PIODOT ; 


TEST IF KIM 


25S0: 


0276 


F0 


16 




BEQ 


TTYIN 




2590 


0278 


20 


IF 


IF 


PUNTO JSR 


SCONDS ; 


WAIT FOR NO KEY 


2500: 


027B 


D0 


FB 




BNE 


PUNTO 




2610! 


027D 


20 


IF 


IF 


PUNTB JSR 


SCONDS ; 


WO IT FOR 0 KEY 


2620! 


0280 


F0 


FB 




BEQ 


PUNTB 




2630! 


02S2 


20 


GO 


IF 


JSR 


QETKEY 




2640! 


02S5 


C9 


15 




CMPIM 


*15 ? 


IGNORE IT IF 


2650 


0287 


10 


EF 




BPL 


PUNTO 5 


BOUNCE 


2BG0: 


02S9 


00 






TAX 






2E70! 


02Sft 


BD 


FD 


03 


LDOOX 


OSCTOB ; 


CONVERT TO OSCII 


2680- 


02SD 


60 






RTS 






2590 


! 02SE 


20 


50 


IE 


TTYIN JSR 


GETCH ; 


TTY IS EOSIER 




t mm 


eg 






RTS 






2710: 














2720: 








* OUTPUT 


NUMBER FROM 












* mm ftREO TO TTY IF 


CONNECTED 


2740: 








* 






2750: 0292 


09 


01 




OUTPUT LDOIM 


*01 




mlilf '§294 




40 


17 


BIT 


PIODOT 




2770: 0297 


F0 


01 




BEQ 


ITSTTY 




27S0: 0293 


60 






RTS 








fl2 


.1^ 




ITSTTY LDXIM 


*02 




2800 


: 029C 


B5 


F9 




MTYP LDOOX 


DOTO 




2810 


! 029E 


20 


3B 


IE 


JSR 


PR I BYT 




2820 


! 02«1 


CO 






DEX 






2S.30 


: 0202 


10 


FS 




BPL 


WTYP ■; 




2S40 


! 0204 


20 


2F 


IE 


□UTYP JSR 


CRLF 




2850 


! 0207 


60 






RTS 






2S60 
















2870 










* * >»•: e;rror i 


JUBROUTINE 




2SS0 
















2890 


: 0208 


09 


01 




ERROR LDOIM 


*01 




2900 


: 0200 


2C 


40 


17 


BIT 


PIODOT 




2910 


: 02OD 


F0 


00 




BEQ 


TTYERR 




2320 


! 02flF 


02 


02 




LDXIM 


SIZEft. 




mm 




m 






Ltmm 


prr 




2340 


: 02 B3 


95 


7F 




SETFUL STOflX 


flCCU 




2950 


: 02B5 


CO 






DEX 






29E0 


: 02BE 


10 


FB 




BPL 


SETFUL 




2970 


: 02B8 


60 






RTS 






29S0 


: 02B9 


09 


3F 




TT YERR LDOIM 


VROOG 








20 


00 


IE 


JSR 


DUTCH 






4C 


04 


02 


JMP 


OUTYP 
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PfW5E 07 



ORG *0300 

+ * INTEGER PftCKfiGE ' INTCflL' 

#770110 " 

COPYRIGHT CO 1977, 1982 
WESTVRIES COMPUTER CONSULTING B. V. 
P.O. BOX 20 ."^iHa) . 

OOSTZftfiN ' ' 

THE NETHERLANDS 

* * FUNCTIONS PROVIDED: 

LOAD, STORE, ADD, SUBTRACT, 
MULTIPLY, DIVIDE 



■J' i' 
J 1 

H I 



3150 


: 0300 


SE 


SB 




BEGALG 


STX 


LOADAD 




? 


GENERfii- SETUP AND 


31E0 


: 0302 


34 


3C 






STY 


LDADAD 


+fel 


m 
t 


INITIALIZE 


3170 


:. 0304 


35 


3D 






STA 


ACCSAV 








31 80 


: 030G 


A2 


02 






LDXIM 


SI ZEA 








3190 


! 030S 


fl0 


00 






LDYIM 


^•00 








3200 


! 030fl 


94 


S2 




CLRWER 


STYZX 


ACCLSB 








32101 


: 030C 


Cfi 








DEX 










3220 


• 03 0D 


10 


FB 






BPL 


CLRWER 








3230 


030F 


A2 


02 






LDXIM 


SIZEA 










• 0311 


F8 








'Wq 










3250 


0312 


30 








RTS 










3260. 


0313 


20 


00 


03 


LOAD 


JSR 


BEGALG 




1 


LOAD INTO 


3270: 


0316 


Bl 


SB 




NLOAD 


LDftlY 


LmDAD 




B 

V 


ACCU 


32S0 


03 IS 


93 


7F 


00 




STAAY 


ACCU 








3230. 


03 IB 


CS 








INY 










illC 


Cfl 








DEX 










3310 


03 ID 


IB 


F7 






BPL 


NLOAD - 


. " 1. " 






3320 


03 IF 


DS 






ALGOUT 


CLD 






■ 


GENERAL EXIT 


3330 


0320 


AS 


SB 






LDX 


LtrnDRP 




m 

7 


iilTDRE REGISTERS 


3340: 


0322 


A4 


3C 






LDY 


LOADAD 


+01 




3350 


0324 


Pi5 


SD 






LDA 


ACCSAV 








33b0 


032G 


30 








RTS 










3370. 


0327 


20 


00 


03 


STORE 


JSR 


BEGALG 




f 


STORE FROM 


33S0: 


032fl 


B9 


7F 


00 


NSTOR 


LDAAY 


ACCU 




? 


ACCU 


3330 : 


032D 


91 


SB 






STAIY 


LOADAD 








3400; 


03 2F 


CS 








INY 










3410! 


0330 


CO 








DEX 


J' f 








3420: 


0331 


10 


F7 






BPL 


NSTGR 








3430 . 


0333 


30 


EA 






BMI 


ALGOUT 








3440s fS&M 


20 


00 


03 


ADD 


JBR 


BEGALG 




7 


ADD INTO 


3450: 


0338 


13 








CLC 






«' 
9 


ACCU 


3460: 0339 


B9 


7F 


00 


NADD 


LDAAY 


ACCU 








mfm iS3c 


71 


SB 






ADCIY 


LOADAD 








34S0S 033E 


99 


7F 


00 




STAAY 


ACCU 








3430s 0341 


CS 








INY 










3500: 0342 


Cfi 








DEX 
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3V5TEEW SOFTWARE 



pfiGE m 



3510 5 


0343 


10 


F4 




BPL 


NODD 




WW iSit %J 


034.5 


30 


D6 




BMI 

wl 1 *• 


Qi GOUT 












SUB 


JBf? 


MiGOLG 

b— • \mj f< W. 4-/ 




3540: 


034fl 


3S 






SEC 








034B 


B9 


7F 00 


NSUB 


LDOOY 


ftCCU 








1 A 






SBCIY 


LOADOiD 




3570 : 


0350 


99 


7F 00 




STftAY 


ftCCU 




3'^Fi0: 

WW WW " 
WW w«l ■ 


0353 

WW 
M't.'W*# 


wn 






I NY 
i€X 






3R(7tPI : 


0355 


1 0 


F4 




BPL 


NSUB 




3E10: 


0357 


B8 

WW 


03 


SETCRR 


BCS 
SEC 


CLICOR 




3G30! 


0350 


B0 


C3 

WW 




BCS 


OLGOUT 




3E40: 


035C 


IS 




CLICOR 


CLC 






www VI ■ 


035D 


90 


C0 




BCC 


OLGOUT 




3660! 


035F 


S5 


3B 


Mpy 


vJ 1 l\ 


LO.QDfiD 




3E70: 


0361 


S4 


sr 




STY 


L./ n Lj 1 1 Ly 


+01 




a3F,3 


P,5 






sia 


r> w L_f \ J <i V 




3E'=^0: 


0365 


fi2 


06 




LDX IM 


c;t 2:eB 




3700 : 


0357 


B5 


7E 


WIMPY 


LDOOX 


occu 


-01 


37 1 0 : 


0369 


95 


34 






DOCCU 


-01 


37 '""0! 


036B 


ri w 


00 




LDft I M 


*00 










7E 




STftfiX 


OCCU 


-01 

VJ X 


3740: 


03GF 








DFX 

Lj L_ a 






>? / w «# ■ 






FS 

n w 






VV X 1 ir T 




sj* f OK? ■ 




rio 






TOV 






3770 s 


0373 


Q9 


03 




LDOIM 








0375 

WW f r 


S5 

1 u 


SF 




STft 
SED 


MULf'NT 




3S00: 


0372 


Bi 


SB 


DUTLUP 

W W 1 Lib W 1 


L DO TV 


L.- (_j n n ty 




3S1 0: 




as 


per 

WW 




w t n 


M! 11 T Kin 






037C 


F0 








wnon 




• CJ ■_' ■ 


U-.' ( I— 


1 R 






n r 












ICIO 






WX iUu.Z? 








SS 






w 1 






38G0: 


03 S3 




00 




LDX IM 


S>00 




3E70! 


03S5 

U w LJw 


B5 


7F 






orru 

n t-i w 






03S7 


75 


S5 

u w 




ODCQX 


DOCCU 

i/ n w w w 




3890: 


03S9 


95 


7F 






OCCU 




3900: 


03SB 


ES 






ZNX 






3910: 


033C 


CE 


90 






COUNT 




3920: 


033E 


D0 


F5 




BNE 


werodd 




3930: 


0390 


B0 


SD 


ULGO 


BCS 


OLGOUT 




3940: 


0392 


05 


SE 




LDft 


MULIND 




3950: 


0394 


E9 


00 




SBCIM 






39B0: 


0396 


S5 


SE 




STO 


MULIIMD 




3970: 


0333 


D0 


E4 




BNE 


peuter 




39Si: 


039fl 


02 


05 


NOOD 


LDXIM 


SIZEC 






039C 


BS 




WUSTUR 


LDflftX 


DfiCCU 


-01 




assE 


95 


8S 




STfiftX 


DACCU 





StWf^CT FROM 
OCCU 
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4010: 


03A0 








DEX 




m2m 


mm 


Mi 






BN£ 


WUSTUR 


4030: 


03fl3 


36 


ss 




. §f X 


DftCCU 


4040: 


03fl5 


CS 






im 








m 


^F 




DEC 


MULCNT 


40G0: 


03flS 


D0 


CE 




BME 


OUTLUP 


4070: 


03flfl 


F0 


B0 


PULGQ 


BEQ 


CLICflR 




mm 


9i 


ee 


DVI 


STX 


LOflDfiD 


4090: 


03fiE 


34 


sc 




STY 


LOftDflD +01 


4100: 


03B0 


35 


SD 




STfi 


ftCCSflV 


4110: 


03B2 


fl2 


03 




LDXIM 


SIZE 


4120: 


03B4 


SG 


3E 




STX 


nULlMD 


413:0: 


03 BG 


fl2 


05 




LDXIM 


SIZEC 


4 1 40 s 


03 BS 


B5 


7F 


MOVDIV 


LDftflX 


HCCU 


4150: 


03Bft 


95 


ncr 




STflftX 


DftCCU 


41G0: 


03 BC 


fig 


00 




LDftIM 


S>00 


4170! 


aSBE 


95 


7F 




STflftX 


flCGU 


41 S0: 


03C0 


Cfi 






DEX 




41 9U 


03Ci 


10 


F5 




BPL 


MOVDIV 


4200: 


03C3 




02 


DIVLUP 


LDYIM 


SIZEA 


4210: 




AG 


SE 




LDX 


MULIN'D 


422®'-: 




BS 


87 


TESWER 


LDfiflX 


DflCLL;B 


4230: 


03C9 


Dl 


SB 




CMPIY 


LfJfiDftD 


4240! 


03CB 


30 


23 




BCC 


FINDIV 


42:508 


03CD 


B5 


87 




LDftflX 


DftCLSB 


42G0: 


03CF 


F0 


■-■ ^ 

jU J. 




BEQ 


MDCOMP 


4270: 


03D1 


fl& 


SE 




LDX 


MULiND 


42S0f 


mm 


m 


i3§ 




LOYIM 




4290 : 


03D5 




03 




LDfilM 


SIZE 


4300: 


03D7 


OS 


SF 




STfi 


MULCNT 


411 '<9s'' 




PS 






SED 




4320 S 


iSDfi 


B5 


35 


DWRE 


L.DPiflX 


DHCCU 


43301; 


IIQC 


Fl 


SB 




SBC IV 


LOftDflD 


-41^11 i 




95 


85 




STftflX 


DftCCU 


4350: 


B3E0 


E3 






INX 




43E0 : 


03E1 


CS 






I MY 




4370: 


03E2 


CG 


SF 




DEC 


MJLO^T 


43S0 : 


03 E4 


D0 


F4 




BNE 


DIVRE 


4390 : 


03EG 


B5 


7C 




LDftflX 


ftCCMSB 


4400: 


03E8 


C9 


93 




CMPIM 


*S9 


4410: 


03EP 




C:4 




BCS 


ULGO 


4420: 


03EC 




;.1 1 




ftDCIM 


t-ei 


4430: 


03EE 


35 


7C 




GTftftX 


flCCMSB 


4440! 


03F0 




01 




BWE 


DIVLUP 


44OT1I 




CPi 




NOCOMP 


DEX 




44G0: 


03F3 


S3 






DEY 




4470: 


03F4 


10 


Dl 




BPL 


TESWER 


44§®'! 


wsm 


CE 


SE 




DEC 


MULIND 


4490: 


03FS 


10 


C9 




BPL 


DIVLUP 


4500: 


03Ffl 


4C 


5C 03 




JMP 


CLICflR 



r 
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PftGE 10 



4510: 


03FD 


30 


ftSCTftB = 


' 0 


4520: 


03 FE 


31 


s 


M 


4530: 


03 FF 






4540: 


0400 








4550: 


0401 


34 


s ' 


•' 


4560: 


0402 


35 


he 


'S' ' 


4570: 


0403 


■35 


ts 


*6 


45S0: 


0404 


37 


s ^ 


*7 


4530! 


0405 


3S 




'8 


mmtf 


04@}6 


39 




^9 ■ 


iE10: 


0407 


2B 




f'LUS 


ie20: 


04 0S 


2D 




MIN 






•2a 


. ' i ^ 


MftQL 


iG40: 


040ft 


2F 


ss 


DEEL 


i550! 


04QB 


43 




CLRNUM 






41 


St 

) ■ 


CLRflLL 


:iE70: 


04 0D 


52 




REP 


iSQ0: 


040E 


43 


' * 


MEM IN 






4F 


'I 
a 


MEMOUT 


1700: 


0410 


25 




PRCNT 


v710: 


0411 


41 




L'LRRLL 



0 
1 

2 . 

3 

4 

5 

£ 

S 
3 
1^ 
B 
C 
I) 

E-: 

F" 

HD 
Dfi 
PC 

-I- 



SYMBOL 


FABLE 


D000 ©270 












PICCLSB 


00S2 


PC C MSB 


007C 


fiCCSflV 


003 D 


ACCU 


007F 


ADD 


0335 


ftLGOUT 


03 IF 


ftSCTAB 


03FD 


BEGALG 


0300 


CftLCUL 


0000 


CLEAR 


0040 


m.ieAR 035C 


CLRALL 


0041 


CLRNUM 


0043 


CLRWER 


030PI 


COUNT 


0030 


CRLF 


iE2F 


DfiCCU 


00S5 


DfiCLSB 


00S7 


DATA 


00F3 


DEEL 


002F 


DIVLUP 


03C3 


DIVRE 


03DA 


DVI 


03AC 


EENNQN 


0077 


ERROR 


02AS 


FINDIV 


03FE 


GETCH 


1E5A 


GETINP 


001E 


GETKEY 


IFGfl 


CODEC 


0240 


INCHAR 


0271 


INITRP 


17FE 


INPUT 


0200 


ITSTTY 


029ft 


LOAD 


03i3 


LO^EHSJO 


msm 


MAftL 


0020 


MEM IN 


0049 


MEMOUT 


004F 


MEMRY 


007A 


nrn 


002D 


MONITR 


1C00 


MOVDIV 


M3B8 


MPY 


035F 


MULCMT 


00SF 


MULIMD 


00SE 


NADD 


0333 


NLOftD 


0315 


NMITRP 


17FA 


NOAD 


a33A 


NOADD 


002E 


NOCLER 


0052 


fCJCOMP 




IsfODEC 


023F 


NODEEL 


0049 


NOMflftL 


0040 


NOMEMI 


022S 


MOM IN 


0037 


NO PER 


00G2 


NO REP 


00BB 


NOTFRS 


0250 


NSTOR 


032A 


NSUB 


034B 


NULL 


0074 




0070 


DUTCH 


1EA0'-" 


OUTLUP 


037S 


OUTPUT 


0292 


OUTYP 


02fi4 


PEUTER 


037E 


PIPiDftT 


1740 


pi yo 


002B 


PRCNT 


0025 


PREV 


007E 


PR I BYT 


1E3B 


PRQBLM 


00GE 


PULGO 


03AA 


■ m4W^' 


'W^f& ■ 


pwtm 


027D 


REP'' 


0052 


ROLMER 


0253 


SCANDS 


IFIF 


SETCAR 


0359 


SETFUL 


02B3 


SIZE 


0003 


SIZEA 


0002 


SIZEB 


0005 


SIZEC 


0005 


START 


0000 


STORE 


0327 


SifB 


0347 


TESKC ^31 


TESWER 


03C7 


TTYERR 


02B9 


TTYIN 


02SE 


ULGQ 


1^10: 


VRflAG 


003F 


WEDER 


0021 


WERADD 


0335 


WERIW 




WERONP 


0207 


WIMPY 


03S7 


WTYP 


0290 




msm 
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SYMBOL TABLE D000 D270 



CftLCUL 


00100 


START 


0000 


SIZEA 


0002 


SIZE 


0003 


'SI ISC' 




Sim 


imi 




wmE 


mimR 


0i>2i 


PRCNT 


0025 


Mft^L 


002A 


PLUS 


002S 


MIN 


00 2D 


NOODD 


002E 


DEEL 


002F 


NOMIN 


0037 


VRAAG 


003F 


NOMflftL 




CLRALL 


0041 


CLRNUM 


0043 


MEM IN 


0049 


MODEEL 


0049 


CLEAR 


00 4 D 


MEI^OUT 


004 F 


NOCLER 


0052 


REP 


0052 


NO PER 


00G2 


NO REP 


006B 


PROBLM 


00SE 


NULL 


0074 


EENHON 


0077 


MEMRY 


00 7 A 


ACCMSB 


B07C 


NUMCAR 


007D 


PREV 


007E 


ACCU 


007F 


ACCLSB 


00S2 


DftCCU 


00S5 


DACLSB 


00S7 


LOADAD 


tl0SB 


ACCSAV 


00SD 


MULIMD 


00SE 


MULCNT 




COUNT 


14090 


DATA 


00Fg 


INPUT 


0200 


WE RON P 


tr207 


WERINP 


020E 


NQMEMI 


022S 


TESDEC 


02.3B 


NODEC 


023F 


GODEC 


0240 


NOTFRS 


0250 


ROLWER 


0259 


INCHAR 


0271 


PUr^TPi 


027S 


PUNTB 


027D 


TTYIN 


02SE 


OUTPUT 


0292 ^ 


ITSTTY 


02gA 


WTYP 


029C 


OUTYP 






02AS ' 


SetRJL 


M2B3 


fiYEm 


mm 


BEGflLG 


0300 


CLRWER 


030A 


LOAD 


0313 


NLOAD 




fiLGOUT 


03 IF 


STORE 


0327 


NSTOR 


032A 


ADD 




NftDD 


0339 


SUB 


0347 


f«UB 


t-134B 




0359 


CLICftR 


035C 


Mpy 


035F 


WIMPY 


03&7 


OUTLUP 


037S 


PEUTER 


03 7E 


WERADD 


03S5 


ULOO 


0390 


NOAD 


039A 


WUSTUR 




PW_GO 






@3«C 






DIVLUP 


03C3 


TESWER 


03C7 


DIVRE 


03DA 


NOCOMP 


03F2 


FIND IV 


03FB 


ASCTAB 


03FD 


PIADAT 


1740 


WMITRP 


17Ffl 


INITRP 


17FE 


HQMITR 


1C0B 


CRLF 


1E2F 


PRIBYT 


1E3B 


GETCH 


lE5ft 


DUTCH 


lEm 




IFIF 


GETKEY 


IF6A 



■It. 




VOOR DE BASIS VERSIE VAN DE JUNIOR IS ER EEN BUFFER- 

GEHEUGENRUIMTE VAN $2000 T/M *F7FF. HET GEDEELTE VAN 
♦1800 T/M *1FFF KOMT OOK VOOR OP *F800 T/M *FFFF. DIT, 
m ¥ERBftND MET DE RESET SN JlSfW^tilPT-ftDRESSEN. DE KAART 
KOST GEBOUWD EN GETEBT FL. tm^pm. INLICHTINGEN IIJ .i..; 
KOOS DE HAAN (015-5B8S71 ) . > ^ 



LET OP: NIEUU REDflKTIE-flDRES ! ! 

zie de col of on 
:::::::::::::::::::::::::::::::: 
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THE JUNIOR PROHOTING CY CW&J) 2401S2 PRGE 01 



001.0 
0020 
0030 
G^40! 



0060 
0070 
0080 
0090 
0100 
0110 

iit® 

0130 
0140 
01 S0 
01 B0 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
02S0 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
03G0 
0370 
03S0 
0390 
04(30 

mtm 

0420 
0430 
0440 
0450 
0460 
0470 
0480 
0430 
0S00 



2DE3 

2DE3 09 08 



S3 Ifl 



s#;)hi»5** "PATCHES OP HlCRO-PlDE (•s»«***s 
VERVOLG DEEL 11 >*■*■■ • 

Door: ft. S. Hankel 

W» Kioosstraat 32 

7mm B!P 'm «ie t o 

Tmi 05490-51151 



Heiaast eefst #en bilr*i.' In d& Patches op Micro-ftde 
dee! 11 komt een patch s'oor we Ike onJuist is. De 
aariPassing om een bacKspace-karakter te genereren 
! staat OP een verKeerd ad res. Het moet a is vo i at i 
: P ' • ■ V " . iv . 1 

ORG *2DE3 . 



LDftIM *08 
^- FILE 0ft 



ftSCII-BftCKSPftCE 



: DOEL: PlANPflSSING SfiL/SAH, EftL/EPlH I.V. M. 
: REftD/WRrTE-PROCEDURES. 



70 


IR 


BflL 


*lft70 


71 


Ifi 


SfiH *: 


*lfi71 


~7'~' 


IR 


EfiL * 


*lfi72 




Ifi 


EfiH 


$1R73 



SflL MOET WORDEN INGEVULD OP DE VOLDENDE 
ODRESSEN: 
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*2EftC 


PRINT FOUTIEVE ID 


3300 


! 2CEB 


20 


3? 


3F 




JSR 


RDBYT 


LEES STARTftDRES LOW 


3310 


■ 2EEE 


20 


7B 


3F 




JBR 


CHKT 


BIJ CHECKSUM 


3320 


: 2EF1 


Eft 








NOP 






3330 


! 2EF2 


Eft 








NOP 






3340 


: 2EF3 


Eft 








NOP 






3350 


: 2EF4 


20 


97 


3F, 




JSR 


RDBYT 


STARTADRE3 HIGH 




20 








JBR 


CHKT 


BIJ CHECKSUM 


3370: 2EFfl 


Eft 








NOP 






3380! 2EFB 


ER 








NOP 






3390''< 


1 lEFG 










NOP 






3400 


: 2EFD 


ft2 


02 




LOftDIT 


LDXIM 


$02 


LEES DftTft 


3410 


: 2EFF 


20 


SD 


3F 


REftDIT 


JSR 


RDCHT 


LEES EEN KARAKTER 


3420 


! 2F02 


C9 


2r 








*2F 


END-OF-DATA KARflKTER? 


3430 


: 2F04 


F0 


14 






BEQ 


ENDRD 


ZOJA, STOP LEZEN 


3440 


: 2F06 


20 


94 


2E 




JSR 


*2E94 


PACKT VIA OMWEG 


3450 


: 2F09 


D0 


B2 






BNE 


SYNC 


LEESFOU^T 


34G0 


: 2F0B 


Cft 








DEX 






3470 


: 2F0C 


D0 


Fl 






BNE 


READ IT 


LEES 2E HELFT 


3480 


: 2F0E 


20 


7B 


3F 




JSR 


CHKT 


BIJ CHECKSUM 


3490 


: 2F11 


20 


00 


1ft 




JSR 


VEB 


NftftR GEHEUGEN VIA VEB 


3500 


: 2F14 


20 


72 


3F 




JSR 


INCVEB 
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3510 
3520 
3530 
3540 



35G0 
3570 
3580 
3590 
3610: 
mtBt 
3620: 
3630: 
3E40i 
3650: 
3660: 
3B70: 
3680: 
3690: 
37001 
3710: 
3720: 
3730: 
3740: 
3750: 
3760! 
3770: 
37S0: 
3790: 
3800: 
3810: 
3820 : 
3830 s 
3840S 
3850: 
3860: 



2F17 
2Flft 
2F1D 
2F20 

2F25 
2F28 
2F2fl 
2F2D 
2F30 



2F32 



3Fft4 



4C 51 3E 
20 97 3F 
CD 6E 10 
D0 9B 
20 9f 3F 
CD 6F 10 
D0 93 
4C 7A: ;|^: 

20 fli m 

Eft 

4C fi4 3F 



mmm 



3FR4 09 FF 
3F06 8D 80 10 
3F09 60 



3FftO 20 9E 3E 

3E9E 

3E9E 48 
3E9F 8ft 
3EO0 09 20 
3Efi2 SD 82 10 
3Efl5 68 
3ii)E 60 



3880: 
3890: 
33001 
3910: 
39t0t 

39S0S 
3940: 
3950: 
3960! 
3970: 
3980: 
3990: 
4000: 



JMP 

CMP 
BNE 
JSR 
CMP 
BNE 
JMP 
JSR 



*3E51 

RDgyt 

CHKL 

SYNC 

RDBYT 

CHKH 

SYNC 

*307O 

$3001 



DISPLOY FILE ID 

LEES CHECKSOH 

VERG. MET BER. WftORDE 

TERUG INGEVftL FOUT 

IDEM VDOR CHECMSyM HIGH 



SCHOKEL Pm 
RENUMBER SOURCE 



INIT 



ORG *3F04 

LDflIM *FF 
STO POD 
RTS 



— — — FILE, .0E '•""•rr* 

DOEL: VOORKDMEN DOT BIJ INLEZEN PBS 0 WORDT, EN DUS 
DE OPNOME RECORDER QOOT DRAOIEl^, . . 



JSR 
ORG 



STOB 
*3E9E 



STOB 



BEWflflR ftCCU 
HOOL KOROKTER 
ZQI^ OAT P85 « i 
EN STUUR DISPLOY 
HOOL KOROKTER TERUG 



PHO 
TXO 

oRoiM %m 

STO PBD 

PLO 

RTS 

— FILE 0F 



: DOEL: INVULLING NIEUWE ODRESSEN BINNEN M. 0. 

m 

m 

t VEB - $1000 dp: 

*2F11. *2F3F. *2F69, *390O, *3C0C, *3D54, 

VEB +01 - $1001 OP: 

*2F72, *30C1, *30D6» .*30DB, *32DF? *5C1J? $3,013. 
*3D40. ' " 

VEB +02 - *1O02 OP! 
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1 i it 



4010: 
4020: 
'4fSi&s 
4040: 
4050: 

4iii3 

4100: 
4110: 
4120: 
4130: 
4140: 
4150S 
4160: 
4170: 
4ie0: 
4190: 
4200: 
4210: 
4220: 
4230: 



: $2F7S, $30C7, *3BE3, »30DEt «32E47 *3CiE» 
: $3D1S, *3D4F. 

r' ■ 

r^'INTVEB - *3F5S OP: ... ..V..v»,-v .-^ i ---V., 

*2F42, *390D, *3C0F. 



INTVEB +12 - *3F;64 OPs . 
*2EC2 



IMCVEB - *3F72.. 
*2F14, *2FSF. 



C. CHECKSUM - *3F7B OPs „ , 

*2EEE, $2EF7, *2F0E, ♦2FfiF*' 

REfiDCH - *3FSD OP: 
$2EDfl, *2EFF, *3C31. 

REfiDBYTE - $3Fg7 OP: 

*2EEB, $2EF4, $2Flft, *2F22, *32F0. 

ONEBYT - *0BC2 OPs 
*2ECfi, *3C21. 



t - If ^ 'I - . If r 

.-'■'l-it'i 



BUGS 



IN DE 5502 KENNER NR. 19 IS EEN PRQGRflMMA GEPUBLICEERD 

¥ffN 15E wffSSR'iiym 'i^^ T.w. wm i»imLmmm^<>f\i^ 

PRINTER. IN DIT PROGRftMMfl, ZD MELDT DE ftUTEUR ONS» IS 
EEN FOUT GESLOPEN. DEZE ZIET ER ftLS VOLGT UIT: 

0222 : S5 03 STfiZ HTEL «oet zWrtS 

0222 : 85 02 STAZ VTEL 



■■■■•••■■•■■••■•■■■••■••■•■■■••a 

l£T OP: NIEUH REDfiKTIE-flNB ! ! 
. Zi9 dt GOiOfn 

suit ts: » siisststiiitiiiit sssti 
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JUMIORS RRH DE RET 



Op yerzoek vsn 'v-elen uolsen hier dan de listing's Man d© 
so+lsi^e die on- de bi-jeenkomst van 19 September- J. I. werd 
3etaruikt. Veel coniriienta.3r- mil ik hier niet ^eyen: Dat staa-t 
wel yoldoende in de lis-tina-'s. Een oprnerkin-g '-.'ooraf is hier 
echter iml m ±i.5f\ Plaats en we\ sen wa-arschuwinii : Veel JUNIOR 
en PET iiebruikers zi-jn noa oneryar^ in het prosra/nmeren in 
assembler. De so-f-twat-e die hier voor U list is niet al li=-pn 
systeem ^ebonden CJunior of PET> rnaar bovendien geschreC-en ' 
'..'oor een sf^eoiale -aeleaenheid en '...'oor bijzondere oms-fcandisheden 
ui-arit riii..in 6522 VIA was toen defect. Wat ll hi*=-r zipt is dus 
"we«§»O0i Sdf-fcware" die na 19 sec:-t. ei=ienli.jk -seen waar de " m*=-^=.r 
hee-ft. T©©h wel itewoon leuk om te ^r-ubliceren en mischien 
eiHjen ideetJes uit te ha len^ over i sens : We zullen talnn^-nkort 
noii a-aridacht *iaa»-i toeste«l©n het "echt" iC"ro*ir.=.jiim*^ren '..'.=.ri 
PIFl en VIA (6532 en 6522) - - - .- 

Ruud UK'hott. 



i@01 

0002 
3003 
g®04 

0005 
0006 

0008 
§009 



. LS 

,; ******************* 
PET NflHR JUNIOR * 



001 1 
0012 
0013 
00 1 4 
0015 
0016 
0017 

0018 

00 1 9 
0020 
0021 

0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 



.iPET I/O 
DDRVIfl 

riHTVifl 

MONIT 



: USER PORT 

.DE $E843 
.HE $E84F 

.DE $FD56 



;PE:T QPERfiTING SVSTEM. 
.. 1. ZEROPRGE LOKATIES. 



RDRL 

hdrh 

EHDL 
ENDH 



.DE tFB 
.DE *Fi:: 
.DE tFB 
.DE t-FE 



I. SVSTEEMROUTINES. 



SKIP 
PRNTXfl 
INflDR 
CHANGE 



.DE t-E7EE 
.DE *E7S4 

.BE fE797 



;DATA RICHTINGS REG. 
;DfiTA REGISTER. 

;PET MONITOR. 



j hdresteller. LHHG bvte. 

; IDEM.HOOG BVTE. 
.: E I NDfiDRES . LflflG BVTE . 
IDEM.HOOG BVTE. 



;LEES khrrkter. cocr::' 
.PRINT KRRflKTERS IN X EN A. 
; INPUT. ADRES IN RDR. 
;VERWISSEL ADR EN END. 
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9030 PROGRflMMR 

0031 ; ' ":\ 

8032 
0033 
0034 ; 



0490- 


fiy 


FF 




0035 


0402- 


811 


43 


E8 


0036 


0405- 


sn 


4F 


E8 


0037 


040S- 


fl2 


93 




0038 


040fl- 


fl9 


2D 




0039 


#4@C- 


2@ 


m 


E? 


0040 


040F- 


20 


R? 


E7 


004 1 


0412- 


20 


97 


E7 


0042 




20 


EE 


E7 


ii4S 


0418- 


20 


fl? 




0044 


04 IB- 


20 


9? 


E7 


0045 
0046 


04 1 E- 


f" C' 






0047 


04 IF- 


H0 


00 




0043 


0421- 


Bl 


FE 




0049 


0423- 


48 






0050 


0424- 


R2 


08 




005 1 


0426- 


68 






0052 


042?- 


4fl 






0053 




#8 






0054 


0429- 
042B- 


90 
fl9 


03 
FF 




8055 
0056 




fC 






0057 


042E- 
0430- 


fl9 
48 


00 




0053 
0059 










0060 


0433- 


3Ii 


4F 


E8 


0061 


0436- 


H0 


10 




0062 


&438- 


i@ 






0063 


0439- 


ri0 


FD 




0064 


043E- 








0065 


943l.- 


yfi 


4F 


E8 


0@S€ 


043F- 


B0 


40 




0067 


0441- 


88 






0068 


0442- 


110 


FD 




0069 


0444- 


fl9 


FF 




0070 


0446- 


en 


4F 


E3 


007 1 


0449- 


fl0 


00 




0072 


044B- 


88 






0073 










0074 


044E- 


Cfi 






0075 


044F- 




D5 




0076 


0451- 


68 






0077 


0452- 


E6 


FE 




0078 


0454- 


D0 


02 




0079 


0456- 


E6 


FC 




0080 


0458- 








008 1 


0459- 


fl5 


FD 




0082 


045E- 


E5 


FB 




0083 


045D- 


fl5 


FE 




0084 



STftRT 



BVTE 



BIT 



NULL 



DELfl 



DELE 



DELC 



SKP 



.BFl 


*040i ' 


.OS 


i 1 ■ 


LDFi 


#*FF 


STfl 


DDRVIfl 


STfl 


DRTVIfl 


LDX 


#*93 


LDfl 


#■■- 


JSR 


PRNTXfl 


JSR 
JSR 


IHRDR 
CHflt-^GE 


JSR 

JSR 


IHflDR 


JSR 


CHflNGE 


SEI 




LDV 


#*00 


LDR 


(flDRL)/ 


PHfl 




LDX 


#$08 


PLfl 




LSR 




PHfl 




BCC 


NULL 


LDfl 


#$FF 


. EV 


*2C 


LDfl 


#$00 


PHfl 




LDfl 


*$00 


STR 


DRTVIfl 


LDV 


#$10 


DEV 




ENE 


DELfl 


PLfl 




fTfl 


LiV 




DEV 




ENE 


DELE 


LDR 


#$FF 


STfl 


DRTVIfl 


LDV 


#$00 


DEV 




BNE 


DELC 


DEX 




ENE 


BIT 


PLfl 




INC 


*RDRL 


BNE 


SKP 


im 


«flDRH 


SEC 




LDfl 


*ENDL 


SEC 


♦flDRL 


LDfl 


iiEENDH 



: ;STflRTftDRES. 



; R I CHT I NGSREG . OUTPUT 

.;LIJH ••■HuOG- IN RUST. 
.; SCHERM SCHOONMflKEN. 
.PROMPTING IN fl. 
; PR I NT BE IDE KflRflKTERS. 
; INPUT STflRTflDRES JUNIOR. 
A'^HRRiaSEi, flDR MET END 

EE OVER. 
jLEES EINDRDRES. 
.VERWISSEL flDR MET 



END. 



NUL.. 



.;ZET INDEK OP 
.:0M VOLGEND EVTE TE LE2EN. 
,;EVTE OP DE STRCK. 
..TELLER VOOR 8 BITS PER BVTE. 
.;HRhL EVTE VRN STRCK. 
..SCHUIF VOLGEND BIT IN C. 
..RESTRNT WEER OP DE STRCK. 
. INDIEN C=l.. 
;CODE VOOR --l IN fl.. 
■ ;EN EEN INSTRUCT IE OVERSLflflN. 
.; ANDERS CODE VOOR 'O IN fl. 
.iEITCODE OP DE STACK 
;2ET CODE VOOR LflAG.. ' : 

.;0P DE UITGRNG. CSTRRTBIT) 
;GEEF DE JUNIOR DE TVD. 
;DIT BIT TE DETECTEREN. 

. .HflflL BITCODE VAN DE STRCK. 
' ;EM 2ET f>P DE UITGftt#^ 

.;GEEF DE JUNIOR DE TVD. 

.:DIT BIT TE LE2EN. 

.;CODE VOOR ■•■HOOG-' 
.OP DE UITGANG. (STOPEIT) 
;GEEF DE JUNIOR DE TVD.. 
;DIT flLLES TE VERWERKEN. 

.;VERLAAG DE BITTELLER. 
, ;NIET KLflflR: VOLGEND BIT. 
: ;ftNBERS B¥T OP STflCK WflflRDELOOS, 

JVERHOuG flDRES..LflflG. ,> . ■ . 

; INDIEN LflflG BVTE NUL. 

;00K HOOG flDRESB¥TE. 

j ftFTREKKEN : 
EINDRDRES. LflflG. 

; MINUS flDRES. LflflG. 

;EN EINDRDRES. HOOG. . 
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0461- B0 BC 00S6 

0463- 58 0087 

@464- 4C 56 FD 0888 

0000,0467.. 0467 



5V5TEEM SOFTWARE 



SEC *hDRH 
ECS EVTE 
CLI 

JMP MONIT 



iNIHUS flDRES.. HOOG. 

. I Nil I EN C=l..VuLGtNIi BVTE. 



fill 30 IH 




018E- 
0 1 se- 
al 8E- 
BiWl- 
0193- 
0195- 
0 1 96- 
0197- 
0198- 
0 1 9fl- 
019E- 
01911- 
0 1 fl0- 
01fl2- 

01fl5- 
01fl7- 
01fl9- 
01RB- 

01011- 



no FB 

hD 80 Ifl 
C9 FF 
F0 02 
13 

24 " 
38 

Bl DE 

bfl 

91 DE 
fill 80 Ifl 
C9 FF 
D0 F9 
Cfl 

D0 DB 
E6 DE 
D0 02 
E6 DF 
D0 Dl 



009 1 

0092 

0093 ;* ROUTINE JUNJC^^:: VAN PET 
0094 



0096 .: JUNIOR ZEROPRGE 



009S hDRSL 

0099 flDRSH 

0100 ; 

0101 .: JUNIOR I."0 

0102 ; 

0103 DflTfl 
0104 

0105 .EH 

0106 .MC 

0107 .OS 

01GS EVTES LDK 

0109 BITS LIiH 

0110 CMP 

0111 EEQ 

0112 LDV 

0113 WAIT B€V 

0114 EHE 

0115 LDh 

0116 CMP 

0117 EEQ 

0118 CLC 

0119 .BV 

0120 HIGH SEC 

0121 LDfl 

0122 n.''., FOR 

0123 STB 

0124 WfllTSTOP LDft 

0125 CMP 

0126 ENE 

0127 DEX 

0128 ENE 

0129 INC 

0130 EHE 

0131 INC 

0132 SKPP ENE 



.DE $DE 
.DE *DF 



.DE $1080 



*0i80 
$•■0500 

#$08 
DHTfl 
#$FP 
BITS 
#*20 

WAIT 
DflTfl 
tt$FF 
HIGH 

*24 

<flDRSL>..V 

fl 

CflDRSLj/T' 
#fFF 

WfllTSTOP 

BITS 

*flDRSL 

SKPP 

*flDRSH 

EVTES 



..PIfl DflTflREGISTER. 
;STfiRTflDRES. 



.; TELLER VOOR 8 BITS. 
.; LEES DflTflREG I STEP . 
,WRCHT OP STflRTBIT. 

..i-JflCHT EVEN ..TOT DE PET.. 
;DE GELEGENHEID HAD.. 
.:EEH BIT UIT TE ZENDEN, 
.;LEES DflN DE BITCODE. 
;INDIEN 'LflflG S 



_-l it; ' 

BIT ER IN.. 
EVTE TERUG. 



ZET C=0 ■ 
,EN SLfl EEN INSTRUCTIE 
;ZET flNDERS 
iLEES BVft. 
•SCHUIF MET 
iEN ZET HET 

immr m tot de 

;LIJN WEER 100$ iS. 

;(:stopeit> 

;VERLflflG DE EITTELLER. 
.;NIET KLflflR: VOLGEND BIT 
.. VERHOOG flDRES.. LflflG. 
.; INDIEN NU NUL.. 
; VERHOOG OOK HOOG BVTE. 
,Gfl VOLGEND EVTE DOSM; 



il000.01flF*052F 
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y 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

i 
i 
$ 

@ 

0 
0 
0 



36 



39 

49 
41 
42 
43 
44 
45 
46 
147 

50 

51 
52 



.;*** JUNIOR TERMINAL ONTVflNG ROUTINE :+:** 



DRTfl 
flliRL 
flDRH 

mm 

FLfl 
SCRN 



.Bf\ 


*lfl00 


.iSTRRTflDRES IN .JUNIOR 


.ric 


$0600 


. OPSLHG-STfiRTHDRES IN PET 


.OS 




;SLfl OP IN PET 


.DE 




;PIR DflTfl REGISTER. 


.DE 




.;LflHG flDRESEVTE. 


.DE 


*FE 


; HOOG flDRESEVTE, 


.DE 


*F9 


;INHOUD VAN ADR. 


• DE 


$01 


;EXECUTIE VECTOR 


.DE 


$00 


, jEKECUTIE VLflG 


.»E 


$1088 


;DISPLflV ROUTINE 



HOOFDROUTINE 



1 R00- 


h9 


00 




0] 


154 


STftRT 


LDA 


#t-00 


;?ET "GEPH EXECUTIE" 


1 R02- 


O 


00 




0] 


155 




STA 


*FLflG 


1 R04- 


20 


'-ip 


ID 


0: 


56 


REPEAT 


JSR 


SCRN 


;TuriH hDRES OP DISPLflV. 

9 ^ 1 1 11 ^ 1 imT I Star A "mtr * %mm Ills 


1 fi07- 


Hli 


80 


Ifl 


0: 


[57 




ldh 


DATA 


;LEES INPUT. 


1 R0fl- 


C'-f 


FF 




0: 


58 




CMP 


#$FF 


INDIEN LIJN HOOG, 


1 flec- 


F0 


Fb 




0: 


59 




BEG! 


REPEAT , . 


.iWflCHT OP LRRG. 


lfl0E- 


fiD 


80 


IH 


03 


1 60 


WAIT 


LDA 


DflTB 


; ANDERS WACHTEN. 


lAf 1- 




FF 




m 


tif 


CMP 


»«rF 


;TOT DE LIJN.. 


1R13- 


D0 


Fy 




0: 


62 




BHE 


WAIT - 


.;WEER HOOG WORDT 


ifll5- 


20 


2D 


lA 


0: 


1 63 




JSR 


BVTE 


.LEES EEH BVTE UIT DE PET. 




SS 


m 






164 




STA 


*ADRL 


;DftT IS LAAG ADRES, 


iflifl- 


20 


2D 


lA 


0: 


165 




JSR 


EVTE 


.;LEES EEN BVTE UIT DE PET 


IRID- 


85 


FB 




03 


166 




STA 


*ADRH 


.DAT IS HOOG ADRES. 


1|SHF- 


m 




1ft- 






JSR 


BVTE 


;LEES EEN EVTE UIT DE PET. 


1R22- 


fl0 


00 




0 


:68 




LDV 


#$00 


.; INDEX NUL. 


1R24- 


91 
AS 


FH 




0 


[69 




STA 


<HDRL>/t' 


.ZET INHOUD OP ADRES. 


1 fl26- 


m 

Dfl 




0 


170 




tm 


*FLAG 


; INDIEN EXECUTIE GEWENST 


1 R28- 


F0 




0] 


171 




BEQ 


REPEAT 


iH2R- 


t.C 


01 


00 


0 

0j 


. (' o 

174 
[75 


EXEC 


JMP 


<VECT> 


;VOER PROGRAJtffi UIT 










0j 
0] 


;LEES EEN 


BVTE 


UIT DE PIT 


.i:;;;^' ■: • „ 


1H2D- 


h2 


08 




0: 


76 


EVTE 


LDK 


#$08 


; TELLER mmR 8 BITS 


1H2F- 
1A32- 


RD 
C9 


80 
FF 


lA 


03 
03 


[78 


BIT 


LDfl 
CMP 


DATA 
#$FF 




1 fl34- 


F0 


F9 




0: 


79 




EEQ 


EIT 




1 flo'6— 


fl0 


20 




03 


80 

IM 




LDV 
DEV 


#$20 


;WACHT OP GELDIG BITv',:^ 


1 fl39- 


Il0 


FD 




0: 


82 




ENE 


DEL 




lfl3B- 
1 H3E- 


hD 
C9 


80 
FF 


IR 


0: 

01 


[83 
84 




LDA 

am 


DATA 

mm ' 


;LEES DE EITCODE. 
;IHDIiM «NW:«> 


1R40- 


F0 


02 




0; 


85 




BEQ 


HIGH 




1R42- 


18 






01 


86 




CLC 




jZET 


1 R43- 


24 






01 


87 




.BV 




JEN SLft "C«t** WER. 


lfl44- 








0: 




HIGH 


SEC 




; ANDERS "C=l". 


1A45- 


66 


F9 




0; 


89 




ROR 


.♦CONT 


;SCHUIF BIT IN BVTE 


1A47- 


HD 


80 


lA 


0] 

•<i 


90 


STOP 


LDft 


DftTR 


;WRCHT OP ' : 

"'1 . 



DE 6502 KENNER 
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5V5TEEW SQFTUJaRE 



lfl4fl- C9 


FF 


0191 


CMP 


#$FF 






ifm* m 


F9 


0192 


BNE 


STOP 






lft4E- CR 




0193 


DEX 




;VERLhRG EI" 


r TELLER. 


lfl4F- D© 


DE 


0194 


ENE 


BIT • * 


* * .:NIET KLRHR 


: VOLGEHn BIT. 


1R51- H.5 


F9 


0195 


LDR 


*COHT 


jflHDERS RES 


JLTflflT IN fl 


1FI53- 60 




0196 


RTS 




; EN "EINDE 


SUBROUTINE" 


mm, ifiS' 


t.0654 













0700- 

0705- 
0708- 



07011- 
0710- 



0716- 
0719- 
07 1 E- 
07 lE- 
0721- 
0723- 
0725- 
0727- 
0729- 
072E- 
072D- 
072F- 
0732- 



fl9 FF 

Sir 43 E 8 

811 4F E8 

20 D0 FD 
fl9 2D 

20 D2 FF 
20 fl7 E7 

m w FB 

20 t.fl E7 

fl9 00 

20 D2 FF 

20 CF FF 

C9 0D 

F0 EE 

C9 2fi 

F0 DF 

C9 20 

F0 0D 

R9 FF 

8D 4F E8 

fl9 00 



0 199 

0200 
020 1 

0202 
0203 
0204 
0205 
0206 
0207 
0208 

0210 

0211 
0212 

0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 

0223 
0224 
0225 
0226 
0227 
0228 
0229 



. LS 

;*** PET TERM I NHL ZEND ROUTINE *** 



0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 



.EH $0700 

.□s 

:PET OPERflTIHG SVSTEW 
RDRL 



DDRVIfl 
DflTVIR 

MONIT 

I HCH 

INEVT 

INRDR 

PRRD 

CRLF 

PRINT 

START 
NEW 

DRTfl 



.Di fFC 

.m de43 

.DE fE84F 

.DE *FD56 

.DE fFFCF 
.DE I-E7B6 
.m $E7F\? 
.DE *E76R 
.DE *FDD0 
.BE *FF»2 



LDR 
SIR 

STR 
JSR 
LDR 
JSR 
JSR 
JW. 
JSR 
LDR 
JSR 
JSR 
CMP 
EEQ 
CMP 
EEQ 
CMP 
BEQ 
LDR 
STR 
LDR 



#*FF 
DDRVIfl 
DRTVIR 
CRLF 

PRINT 
INRDR 
CRLF 
PRRD 

#$00 

PRINT 

INCH 

#t-0D 

INSTR 

# * 

NEW 

#$20 

SKIP 

#$FF 

DflTVIfl 

#$00 



i ft«i^INTER . LRRG 
;flDRESP0INTEi?.HOOG 

;ricntingsregister. 

;DflTflREGISTER. 

; RESTRICT MONITOR. - 'i ' 

.;lees eeh krrrkter. ^ ' 
;lees een bvte. 
;lees een RDRES. 
..print met rdres. 

.PRINT CRLF. 

; PR I NT EEN KflRRKTEt. 

;VIfl VOOR OUTPUT. 

iLIJN IS "HOOG" IN RUST. 
.BEGIN OP NIEUWE REGEL. 

; PR I NT 'pmmtm, 

; INPUT. RDRES. 

; NIEUWE REGEL, 

; PRINT RDRES. 

.PRINT "NULL" 

;0M OP RETURN JE WRCHTEN. 

.; INPUT. EEN KRRRKTER. 

.INDIEN "RETURN" 

jVOLGENDE INSTRUCtlE^ 

; INDIEN STEP. ■ 1 

.BEGIN OPNIEUW 

GEEN SPAT IE. ^ 

jMRRK LIJN HOOG. 

;2ET VIA VOOR INPUT. 



DE 6502 KENNER 



LUODSJ8MO|^A5;Op'ftAMrtA 




y I- J4- 


8D 


A -"t 

4.:! 




Wc;44 




STH 


DDRVIft 




0737- 


4C: 


56 


FD 


0245 




jrip 


MONIT 


.:EN Gfl HflflP DE riOHITOR. 


073H- 


20 


E6 


E7 


0246 


SKIP 


JSR 




;fiNDERS.LEES DflTft. 


07311- 


20 


49 


07 


0247 




jm 




;STyUR NflflR DE PET. 


0740- 


Eb 


FB 




0248 




IHC 


*flDRL 


;HOOG RBRES OP. "J ' 


0742- 


110 


02 




0249 




BNE 


SKP 




0744- 


E6 


FC 




0250 




lie 






0746- 


4C 


19 


07 


0251 


SKP 


JMP 


BflTfl 


; VOLGEHD BVTi. -'^ 










0252 














• 




0253 


; OUTPUT NFIRR DE JUNIOR. 




0749- 


48 






0254 
0255 


ni iTPi IT 


r nn 




.: SAVE DfllREVTE 


074fl- 


■7C| 






0256 




F T 




iELOKKEER INTERRUPTS. 


074E- 


fly 


09 




0257 






tr-f t-'t.' 


iZENDT "flTTENTIE" 


07411- 


811 


4F 


E8 


0258 






T'DTi.,' T ui 

Lin 1 V In 




0750- 


fl2 


18 




0259 




LDX 


#*10 


■ NflCHT TOT DE JUNIOR.. 


0752- 


H0 


00 




0260 




LDV 


#$00 


..QEREED IS VOOR ONTVflHGST. , 


0754- 








0261 


I.ISTT1 
wn I 1 J. 


TIPV 




» . ; ' *■ • ■ 


0755- 


D0 


FD 




0262 






WftlTl 




0757- 


Cfl 






0263 












ri0 


Ffi 




0264 


i 


Dnt. 


Wnl 1 1 




075FI- 


fl9 


FF 




0265 




LilH 




;MftflK DftN DE LIJN WEER HOOG. 


075C- 


811 


4F 


E8 


0266 




vj 1 n 


I'ri 1 V in 












02^7 




L.lrr 




iPflUZE TUSSEN TWEE BYTES. 


0761- 








0268 


urn Tl 


lit T 






0762- 


fl0 


FD 




0269 






ufii ri 






m Ff- 








Ll'n 


i'liiriOi 
T-niiKL 


.■ L.E1C.O Unnu nl'Kt DJST I c:. . 


i?66- 


20 


74 


07 


0271 




T'-;P 




.:VER2ENDT HET. 


0769- 


fl5 


FC 




0272 




i Tift 




.:LEES HOOG RDRESEVTE. 


076E- 


20 


74 


07 


0273 




TCP 
•J oK 


UU 1 DT 1 


.:VERZENDT HET. 


076E- 


68 






0274 




r LH 




RESTORE DRTRBVTE. 


07bF- 


20 


74 


07 


0275 




T ~D 

J oh. 


UU 1 JJT 1 


;VERZENDT HET. 


0772- 


ETi-i 
._! 0 






0276 




LLl 




; GEIE INTERRUPTS VR I J 


0773- 


60 






0277 




DTC* 

Ft f b 


t 












0278 


















0279 


.' EfcN EtTc. 


NHriK 


Dt JUNIUK 




0774- 


48 






0280 
0281 


OUTBVT 


PHfl 






0775- 




08 




0282 




LDK 




.; TELLER VOOR 8 BITS. 


0777- 


m 






0283 


BIT 


PLR 


; RESTORE BVTE OF RESTRHT 


0778- 








0284 




LSR 


fl 


;SCHUIF EEN BIT UIT. 


0779- 


48 






0285 




PHfl 




;SflVE RESTRHT VAN BVTE. 


077fl- 


90 


03 




0286 




BCC 


HULL 


.ilHDIEH BIT=1 


©770- 


fl9 


FF 




0287 




ldh 


#$FF 


.iCODE VOOR "EEH" IN R. 


077E- 


2C: 






0288 




. EV 


*-2C 


.;SLH EEH INSTRUCT IE OV|R. 


077F- 


fl9 


00 




0289 


NULL 


LDfl 


#$00 


.;flHDER CODE VOOR 0. - ^ ' 


0781- 


48 






0290 




PHR 




.iSflVE BITCODE. 


0782- 


fl9 


00 




0291 




LDfl 


#$00 


;ZENDT STflf^JBIT. 


0784- 


811 


4F 


E8 


0292 




STfl 


DflTVIfl 


0787- 


fl0 


10 




0293 




LDV 


#$10 


.;GEEF DE JUHIOR DE 


0789- 


88 






0294 


WflIT2 


DEV 




;gelegenheid 


078fl- 


D0 


FD 




0295 




iNE 


Wfl!T2 


;DIT BIT TE DETECTEiEN. 


078i::- 


68 






0296 




PLfl 




.; RESTORE BITCODE " 


078B- 


8D 


4F 


E8 


0297 




STfl 


DflTVIfl 


.;ZENDT BITCODE. 


mrm- m 


40 








LDV 


#$40 


;GEEF DE JUNIOR DE 


1792- 


88 






0299 


WAITS 


DEV 




.;GELEGEHHEID 


©793- 


D0 


FD 




0300 




BNE 


WflIT3 


.;DIT BIT TE LEZEN. 
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3V5TEEM SOFTWARE 



fsifzf^ nj rr 


D-JU J. 


1 TlH 




0797- 811 4F E8 


0302 


STfl 


DflTVlH 


079fi- fle 00 


0303 


LDV 


#$00 


079C- 88 


^04 WflIT4 


DEV 




079D- D0 FD 


wm 


BNE 


WfiIT4 


079F- Cfl 


0306 


DEK 




07FI0- D0 ri5 


0307 


BNE 


BIT 


07Rt» €i 


0308 


PLfl 




07R3- 60 . 


0309 


RTS 




0000,07fi4,07fi4 









;2ENriT "STOP". 

.;GEEF HLl DE JUNIOR DE I,^ 
;HET BIT TE VERWERKEN. 



.iVERLRRG EITTELLER 

;NIET KLflflR: VOLGEHD BIT. 

;VUILNIS li}E0.:W STftPEL. 



0312 -LS 
0313 

0314 JUNIOR niSPLfiV ONTVflNGER *** 

0315 . ******************************** 

0316 ; ■ 

.ER $0300 
.MC $0800 
.OS 



0317 
0318 
0319 

0320 ; 

0321 JUNIOR I/O LOCRTIES 

0322 .: 

0323 DDRR 



.; STRRTRDRES 

,OPSLflG flliRES IN DE PET 
jSLfl OBJECT CODE OP. 



.DE $lfl81 
.DE *lfl83 
.DE $lfl80 
.DE $lfl82 



0324 DDRB 

0325 DflTfl 

0326 DflTB 

0327 .; 

0328 iDISPLRV BUFFER €6 Kffi?WCTERS> 

WM it^R .BE sISii 

0331 .; 

0332 ; START VECTOR., 



; R I CHT I NGSREG I STEPS . 
;DflTflREGISTERS 











^33 








0300- 


4C 


67 


03 


0334 
0335 


START 


JMP BEGIN 












0336 

0337 


;TOON INHOUD BUFFER (P mX DISPLW 


0303- 


fl9 


FF 




0338 


SHOWl 


LDR #$FF 


.;EEIDE POORTEN OUTPUT. "'" 


0305- 


8D 


81 


IR 


0339 




STfl DDRfl 




0308- 


8D 


83 


Ifl 


0340 




STfl DDRB 




030E- 


h9 


08 




0341 


SH0W2 


LDfl #$08 


; BEG IN OP LINKER DISPLflV 


030D- 


8D 




IR 


0342 




STfl DRTE 




0310- 


R2 


00 




0343 




LDX #*00 


; INDEX IN BUFFER OP NUU 


0312- 


B5 


00 




0344 


HEKT 


LDfi *BUFFR..K 


.;LEES KflRflKTER; 


0314- 


8D 


80 


Ifl 


0345 




STfl DflTfl 


;EN ZET IN DISPLflV 


0317- 


fl0 


00 




0346 




LDV #$00 


.EVEN VflSTHOLIDEN. 


ii3l9~ 








0347 


HOLD 


BE¥ 




03 1 R- 


110 


FD 




0348 




BNE HOLD 




03 ic- 


fl9 


FF 




0349 




LDfl #$FF 


;MflflK DISPLflV HONKER 


es lE- 


81 


m 


IR 


@^ 




STfl DflTfl 




0321- 


EE 




IR 


0351 




INC DATE ' 


iVCM-GEND DISPLflV 


0324- 


EE 


82 


Ifl 


0352 




INC DATE 




0327- 


E8 






t35t 


r » - - 


IHX 


;VOLGEND K«?ftKTER 



42 
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06 




0354 




CPK 


tt*0b 


Zi32fl- 


ri0 


E6 




0355 




EHE 


HEKT 


3320- 




00 




0356 




LDh 


#*00 


Z132E- 


SD 


81 




0357 




STfl 


DpRfl 


3331- 


60 






035 S 




RTS 












0359 


i 














0360 


• LIT r**i II 1 

;HIEUW 


KflRftKTER IN BUFFER 






















@1 




0362 


HEW 


LDa 




3334- 


fl0 


00 




0363 




LiiT 


it -t I'i l"-! 


9336- 


E5 


00 




0564 


MOVE 


LDh 






99 


00 


00 


0 ob5 




blH 


BuFFKj t 


ii33E- 


ES 






£i366 




I NX 




033C- 


! 






0 I- 




T L ILI 

I HV 




1.!- 


C0 


06 




03 6 1! 




Lr T 




ii Jof- - 


DO 


r" sir 




0369 




EhE 


nUvE 


8341- 


60 






0370 




Rib 




























0372 

.-i .-^ -~i 


.. LEtb 


T'Ll T»I l"Tr~ 

tEN EtTE 


UIT DE PET 


9342- 


fl2 


08 




y 3 1 c» 
0 J r 4 


Til 1 ~r r" 

EtTE 


, : LD,-, 


JJ. .+• i1 

#*0y ; : 


3344- 


i~iT*i 

HD 


80 


IFl 


fe?3i- 5 


T*i T T" 


LDH 


DflTfl 




€9 


FF 




0376 


' : 1 " 


CrlP 




d J4y- 


r 0 


Fy 




0377 








33 4 El- 


H0 


28 




0 .:! i - y 




LDV 


#$20 


El 3 411- 








0379 


DEL 


DEV 




t1o4b- 








038 £i 




EHE 


DEL 


3350- 


Hii 


80 


ifl 


038 1 




LDR 


DflTfl 


0.35-3- 


l9 


r"r" 

FF 








CMP 


#*FF 


3355- 


r kl 


02 




0.;:8-! 




■ EEQ 


HIGH 




i 






0'i'£'4 




CLC 




3353- 


24 






0385 




.BV 


*24 


0359- 








0386 


HIGH 


SEC 






€€ 


06 




0387 




ROR 


#BUFFR+6 


035C- 


fill 


80 


ifl 


0388 


st6p 


LDR 


DflTfl 


035F- 


C3 


FF 




0389 




CMP 


#*FF , - 




10 


F9 




0390 




B^€ 


STiSf^ " 1 ^ 


3363- 


CR 






0391 




DEK 




0364- 


110 


DE 




0392 




EHE 


BIT 


0366- 


60 






0393 




RTS 





.;PIflH WEER INPUT 



0394 
0395 
0396 



; HOOFDPROGRflMMfl 



0367- fl2 

0369- fl9 
036B- 95 
036D- E8 
036E- E0 

0370- D0 
0372- 20 
0375- flD 
0:378- C9 
037fl- FQ 
0S?C- ft© 
037F- C9 
0381- D0 



00 

FF 

m 

06 
F9 



j7 BEGIN 



0:j 0:j 

80 Ifl 
FF 

F6 , 

m ifi 

FF 
F9 



0399 

0400 
040 1 

0402 
0403 
0404 
0405 
.^406 



LOOP 



0408 
0409 



LDX tt$00 
LDH #$FF 
ST A *»JFFR,K 

IHX 

CPX #$06 
EHE FILL 
JSR SHONl 
LDH DflTfl 
CMP #$FF 
BEQ LOOP 
LDH DflTfl 
CMP #$FF 
EHE flTN 



;INDEK NflflR KflRflKTER. 
ilHDEK NflflR VCiRIG KflRflKTER. 
.iZET KflRflKTER.. 
.EEH PLHHTS NflflR LINKS. 
.;X EH V EEN PLflflTS VERDER. 

;VERSCHUIF flLLE KftRflKTERS. 



; TELLER VOOR 8 BITS 
jWflCHT OP START 



.iWflCHT OP GELD I G BIT 



..LEES DE BITCODE 
; INDIEN "NUL 'S 

jZET C=0 

.:EH SLfl "C=l" OVER 
; ANDERS ZET C=l 
iSCWIF IN EVTE 
;WflCHT OP STOP 



.:VERLflflG EITTELLER 
;HIET KLflflR: VOLGEHD BIT 



.:VUL BUFFER MET SPATIES. 
;CODE VOQR SPAT IE 



.iTOON DISPLflV 

.;lees ihput 

.ilHDIEN HOOG, 
.iHERHflAL. 

.iWACHT TOT EINDE ATH 



DE 6502 KENNER 



43 
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5V5TEEM 3aFT\X?flRE 



0383- 20 42 03 0410 JSR BVTE .; ONTVRNG DAN EVTE VAN PET. 

0386- 20 32 03 0411 JSR NEW ; PAS DISPLAY ARN 

0389- 4C 72 03 0412 JMP LOOP ;EN WflCHT OP VOLOEND BVTE. 

0080,03SC.088C ' 



0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0423 



PET DISPLRV ZEHLER *** 



.BA $0900 
. OS 

:T OPERATING SVSTEM 



BLINK 
DDRVIA 
DRTVIR 
GETCH 



0429 PRINT 

0430 MONIT 
.0431 



.BE *A7 
.DE ^^E843 
.DE $E84F 
.DE $FFE4 
.DE $FFD2 
.DE $FD56 



;STARTABRES 



; CURSOR KNIPPER <0=AflN> 
RICHTINGSREGISTER. 
DATRREGISTER. 
LEES TOETSENEORi,, 
PRINT KflRHKTER. ' /' 



Dtr- 



JNITOR 



0432 
0433 



HDQFDPROGRftMMfi 



0900- 


R9 


FF 




0434 


oTi^T 1 


LDA 


#*FF 


;VIR VOOR OUTFUT 


0902- 


riT; 

0 .1.1 


43 


E3 


0435 




STR 


DDRVIA 


1,1 


0905- 


31! 


4F 


E8 


0436 




STA 


DATVIR 


;LI JH It HOOG IN RUST 


0908- 


fty 


0D 




0437 




LDR 


#$0D 


;Gfl NflfiR NIEUME REGEL 


09£ifl- 


20 


D2 


FF 


0438 




JSR 


PRINT 




090D- 


fl9 


00 




0439 


HEKTCH 


LDA 


#$00 • • 


;Cl«SCJR KNIPPERT 


090F- 


8B 


A7 


00 


0440 




STA 


BLINK 




09 1 '2- 
0915- 


20 E4 

rci CI' 


FF 


0441 
0442 


GET ^ ' 


JSR 

EEQ 


GETCH •"" 
GET 


.iWACHT OP TOETSDRUK. : 


0917- 


20 


D2 


FF 


0443 




JSR 


PRINT 


; PRINT KARAKTER ' 




est' wB 




0444 




CMP 


#*8D 


; I ND I EN SHIFT-RETURN 


09 1 C- 


D0 


03 




0445 




ENE 


SKIP 




09 lE- 






FD 


0446 




JMP 


MONIT 


;TERUG NARR DE MONITOR 


0921- 


C9 


OD 




0447 


SKIP 


cm 


#f0H 




0923- 


F0 


06 




0448 




BEQ 


LEGAL 


.; ACCEPTEER. 


0925- 


29 


7F 




0449 




AND 


#$7F 


;ACCEPTEER GEEN HOOFDLETTERS. 




m 


m 








cm 




rtW&IEN CONTROLE Kfif^KTER. 




m 


E2 




0451 




Bcc mm» 


.iWIJS AF. < ^. . . 






31 


09 


0452 


LEGAL 


jm 


imm 


ZANDERS NAAR JUNIOR. 




4C 


@B 


09 


0453 
0454 




JMP 




;EH WfCHf OP Si VOLM«e. 










0455 
0456 


.:STUUR 


iRAKTEF 


NARR JUNIOF 




0931- 


20 


3B 


09 


0457 


TRf»© 


JSR 


SEARCH 


;ZOEK IN TABELl 


0934- 


E0 


02 




0458 


. - 1 .1 F 


ECS 


ACCEPT 


; INDIEN GEVONDEN.. 


0936- 


A9 


FF 




0459 




LDA 


#*FF 


.; ILLEGAAL=SPhTIE 


0938- 


4C 


4E 


09 


0460 


ACCEPT 


JMP 


PUTJUN 


;STUUR NARR JUNIOR 





















44 — — DE 6502 KENNER 
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3V5TEM30FTWflRE 



0462 ;20EK iW'M W»EL 

0463 .; 



393E- 


h2 


00 




0464 


SEARCH 


LDK 


#*00 


J INDEX IN TABEL 




DD 


yy 


09 


0465 


TRVNKT 


CMP 


TABLE 1 ..'A 


;VERGELIJK KflRflKTER 


3940- 


Fy 


07 




0466 




BEQ 


FiJlJND • 


.; I ND I EN N I ET GEVONDEN / 


11942- 


E8 






0467 




INK 




PROBEER VOLGENDE 


3943- 


E0 


26 




0468 




CPK 


#38 


;37 M0GELIJKHEBB4 


3945- 


110 


F6 
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"jy48- 
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0471 




RTS 
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BD 


BP 


09 
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0474 
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;€ODE NflRR 














0477 
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0478 


PUTJUH 


PHR 




..SAVE CODE 


394F- 








0479 




SEI 




;BLOKKEER INTERRUPTS 


3950- 


h9 


00 




0430 




LDfl 


#*00 


JZENDT "flTTENTIE" 


3952- 


an 


4F 




0481 




STfl 


DATVIfl 




3955- 


fl2 


10 
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LDK 


#$10 


;TVDSDUUR "flfTi*#IE" 


3957- 


fl@ 
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0483 
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0484 
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ne 


FD 
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Cfl 
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w 


Ffl 
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JSNt 
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395F- 


h9 


FF 




0488 






Tr-t r r 


;EIHDE "flTTENTIE" 


3961- 


sn 


4F 


ES 


0489 




o 1 n 


TimT'.,' T Ci 




3964- 




@§ 




04§@ 




Li'T 




iPflUZE TUSSEN TMEE EVTES. 


3966- 








0491 


HLD 


tit. T 






3967- 


D0 


FD 




0492 






Ul Tl 




3969- 


h2 


08 




0493 




LUX 




.; TELLER VOOR S BITS 


396E- 


63 






0494 


BIT 


PLR 




RESTORE CODE 


396C- 


4R 






0495 




LSR 


A 


iSCHUIF EEN BIT UIT. 
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t'T' jC> 




PHfl 




C'trC TClMT TCDI li"- ClO CTQr-l/ 

.' Kto 1 Mn 1 1 tKUu Ur D I HL-ls 
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ECC 


NULL 
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LDfl 


#*FF 
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C- ■ 
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. EV 


*2C 


^cN r-LH NUL UvhR. 


~1'-?73— 




CiCi 






i U II 1 


LDfl 


#$00 
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3975- 












PHR 






3976- 


R9 


Fifi 
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LDfl 


#*00 


• "?CKlTlT Ot45rl&'*©t-T 

.■ i-tniJ 1 o J rm 1 Je«t 1 


] 




■rr 








STfl 


DflTVIfl 






ni-J 


1 o 








LDV 


#$10 


71 ~•i7Tl— 








•L' C ' 


Wn i 1 1 


DEV 




397E- 


D0 


FD 




0506 




ENE 


WAIT2 






OO 

811 














.iEITCODE VAN DE STACK 


0981- 


4F 


E8 


0508 




STfl 


DflTVIfl 


;UIT2ENDEN.. 


3984- 


H0 


40 




0509 




LDV 


#$40 


;EN EVEH LflTEN STflflN. 


3986- 


88 






0510 


WfllTS 


DEV 




3987- 


110 


FD 




0511 




EHE 


WfllTS . 




3989- 


fl9 


FF 




0512 




LDfl 


#$FF 


;nu stopbit zehben. 


398E- 
39SE- 


8D 

fie 


4F 


E8 


0513 




STfl 


DflTViB 




00 




0514 




LDV 


»$e0 


;en even LflTO^ iWtfw 










0515 


WflIT4 


DEV 




3991- 


ri0 


FD 




0516 




EHE 


miT4 




3993- 


Cfl 






0517 




BEX 




;VERLflAG BIT TELLER. 














ENE 


BIT 


.;NIET KLAflR: VOLGEND BIT 
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8997- 
€998- 



yy99- 
yyyC- 
993F'- 
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09RS- 
09hE- 
09hE- 

09E4- 
fi9B7- 

09BH- 
09ED- 



i-.fi 

58 
60 



41 



4H 
411 



■=19 




4B 
4E 

=; t 
J. 

cr..-{ 



43 

A ^ 

4w 
4F 
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5h 
30 



0D 30 31 

:.4 



09EF- 


08 
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21 


06 


0E 
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0E 


6F 


B9C0- 
09CE- 


€.1 

48 


0F 
2E 


47 


01? CE- 




i r-. 
I C< 


2F 


ijylil- 


12 


07 


63 


3 S'ri4- 


4 ! -i 


1 


09 
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11 


"i A 


FF 


09riR- 

09111!- 


FF 


40 

30 


79 

1 9 


0S'-E.0- 
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12 

00 
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0519 
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0523 
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0525 
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6527 
0528 
0529 
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0531 
0532 
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0534 

0536 

0537 

05®S 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 



fe.l553 



• KhRAKTEk ThEEl 

TABLE,! . EV 

, EV^ 
. B'r 
. EV 
. EV 

T'lt I 

. EV 



HBiJ 
DEF- 
■' GH I ■■ 
■JKL- 
MNO- 
•pQR- 
STU- 
.EV ■VNK- 
.EV -VZ-^ 

.EV $m ■■ 

. E V 234 ' 

!bV ■■•567- 
.EV ■••89- 



$20 
■01-- 



;COIlE TftBEL 
TABLE2 



.BV 


$08 


$03 


$27 


. EV 


$21 


$06 


$0E 


. EV 


$42 


$0B 


$6F 


• BV 


$61 


$0F 


$47 


. EV 


$48 


$2E 


$23 


. EV 


$0C 


$13 


$2F 


, EV 


$12 


$07 


$63 


. BV 


$43 


$41 


$09 


. EV 


$11 


$24 


$FF 


. EV 


$FF 


$40 


$79 


. EV 


$24 


$30 


$19 


. EV 


$12 


$02 
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. BV 


$00 


$10 





; ANDERS VUIL VFiN BE STACK 
iSTA WEER INTERRUPTS TOE 
.:EH KLflflR. 
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.LS 
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.Bfl $0200 ^ 








0562 




.MC $0000 
. OS 
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DDRA 
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0566 


DDRE 
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DflTfl 
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;DflTfiREGISTERS ' 
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DRTB 


•DE $lftS2 




fl9 FF 




0569 
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ST«ftT 


LDA #$FF 


; BE I DE POORTEN U I TGflNS 


811 81 


lA 


0571 




STA DDRA 




8D 83 


lA 


0572 




STA DDRE 
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3V5TEEM 3aFT\WflRE 



2QS- 


h2 


00 




0573 


RESTART LDX 


#$00 




;K en V OP START 




fl0 


00 




0574 


LDV 


#*00 






20C- 


ED 


49 


02 


0575 


SHOW Llifl 


ThBQ..H 




;2ET VOLGENDE BiTfl, 


20F- 


811 


80 


Ifl 


0576 


STfl 


DRTH 






212- 


B9 


56 


02 


0577 


LIIH 


DISP..V 




;0P MET VOLGENDE DISPLAV 


215- 


811 


yk' 


Ifl 


0578 


STR 


DRTE 






218- 


fl9 


00 




0579 


LDfl 


#*00 




;laht even STAAN 


21R- 


69 
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0580 


DEL RDC 


#*01 
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D0 


FC 




0581 


EHE 


BEi. 






21E- 


E8 






0582 


INK 








21F- 
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INV 






.:VERH00G EE IDE TELLERS 


220- 


C0 
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0584 


CPV 


#$06 
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EHE 


SHOW 




; 20N I ET. VOLGENDE 
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EE 
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D0 


DF 




0587 


EHE 


RESTART 






229- 


Fl9 
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Llifl 


#*C0 


■ 


; riAN TVDTELLER RESETTEN 
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'W 














22E- 


flD 


49 


02 


0590 


SHIFT LDfl 


TABS 




;SAVE EERSTE BVTE 
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48 
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PHR 
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m 
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;iNBEK mm mmmEL 
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R2 
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MOVE LDfl 
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9D 


49 


02 
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STfl 
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INV 
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E8 
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INK 






.VERSCHUIF 20 DE HELE TREEL 




E0 


0C 




0598 


CPK 


#$0C 






240- 


re 


F4 
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BNE 


MOVE 






242- 


68 






0600 


PLR 






.iZET OPGESLRGEN EVTE 


243- 


SD 


55 


02 


0601 


STR 


TREC 




;ACHTERARN 


24b- 


4C: 


08 


02 


0602 
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JHP 


RESTART 
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iDftTfl TREEL 
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RE 
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FF 


FF 
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. EV 
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. EV 
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SOFTWARE 



0005- 
0008- 

000E- 

0001.1- 
00 1 0- 
0012- 
00 1 5- 
0017- 

§019- 

001fi- 
0L11 L- 
001Il- 
00iF- 
©020- 

0023- 
§026- 
@@2@- 
002fl- 

a02E- 

002E~ 

0030- 

0032- 
£1034- 



Ifl 



fl9 FF 

8D SI 

en 83 ifl 
sn 82 ifl 

fl9 FE 
SD 30 IH 

H0 00 

fl2 00 
Cfl 

B0 FD 



.D0 

2t 
HD 
C9 
D0 
18 
fill 
69 
r:y 

ri0 

4C: 



Ffl 

80 
?F 
EE 



1ft 

IR 



32 IH 
02 

14 

liy 

03 00 



0623 
0625 



, PROEFPROGRHMMfl " SLflNGET JE " 



0627 
062S 
0629 
0630 
0631 

0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
12 



STftRT 



mi 

LB2 



LE3 
LE4 



0644 
0645 
0646 
9647 
0643 
■ 0649 
0650 
0651 
0652 



.Bfl *000:S 

LDfl #*FF 

5TH tlflSl 
Sifl *1h83 

Lim #*©8 

STfl $1RS2 
Llifl #*FE 
STh $li=l80 
LDV #$00 
LliX #$00 
DEK 

EHE LE4 
DEV 

EHE LE4 
SEC 

ROL iinm 

LDft $lfl88 
CMP #$7F 
W LB3 

CLC 

LDH $1h32 
RDC #*02 
CMP #$14 
EHE LE2 
JMP START 



if-.- 



titiyy.. yy>!7.. yy:j7 



i|iiKiH)|i4t«ti|(*i«ii|c«iiti4ei|(iK«i«*«i4iiHiH4(4(«i4<4<«t4<>Kit:4iiHit^ 



DE HEER J. fl. DEKKER UIT flLKMflftR MELDDE ONS TELEFONISCH 
DOT ER Z.I. EEN VIERTPL BUGS IN HEX IN EDITIE 20 GEPUiLI- 
CEERDE SCHfifiKPROGRflMMP MOETEN ZITTEN. SOMEN MET T*«0-, 
KORTEKflflS ZIJN ER DRIE OPGESPOORD, EN WEL: ' 

REGEL 1300 0E -'^ 

REGEL 3300 m. z. C0 03 

REGEL 6470 m. z. D0 DF 

DE VORIGE KEER DEED IK EEN OPROEP MIJ TE HELPEN APN EEN 
MONITOR-LISTING VAN DE ftIM 65. DIE HEB IK ONTVftNGEN. HET 
HELPT ONS BIJ HET UITZOEKEN VON DIVERSE SOFTWARE. 
WIE HELPT MIJ DEit KEER AAN EEN MONITORLI STING VAN DE OS I? 

Mi. 1 1 em van Pelt 
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DO 24-06-B2 G500 - GEBRUIKERSGROEP DELFT E-CftFE 

Zfi 21-08-82 VERSCHIJNINGSDftTUM 6502-KENNER 

Zft 11-09-82 APPLE GEBRUIKERS GROEP DftG 

Zfl 18-09-82 KIM CLUB DftG 

OSI GEBRUIKERSGROEP DftG 

DO 30-09-82 6500 - GEBRUIKERSGROEP DELFT E-CftFE 

Zft ie-10-82 VERSCHIJNINGSDftTUM G502-KENNER 

DO 28-10-82 6500 - GEBRUIKERSGROEP DELFT E-CftFE 

Zfi 20-11-82 KIM CLUB DfiG 

OSI GEBRUIKERSGROEP DfiG 

DO 25-11-82 6500 - GEBRUIKKERSGROEP DELFT E-CfiFE 

Zft 18-12-82 VERSCHIJNINGSDftTUM 6502-KENNER 

'S ZONDftGS VftN 18.30 TOT 19.00 UUR Vlft HILV. I 
HOBBYSCOOP, VftftK MET COMPUTERPROGRftMMfi' S, DIE 
M. B. V. EEN CftSSETTERECORDER ZIJN OP TE NEMEN. 
DOOR HET GEBRUIK VftN DE 'BftSICODE' IS ELK 
UITGEZONDEN PROGRflMMfi MET UW COMPUTER IN TE LEZEN. 
DE 'BftSICODE' VOOR DE OSI EN VOOR DE ftPPLE II ZIJN 
GEPUBLICEERD IN DE HCC-NIEUWSBRIEF NR. 34 VftN NOV/ 
DEC 1981. 



HET BESTUUR VAN DE KIM-GEBRUIKERS CLUB NEDERLOND HEEFT 
BESLOTEN VOOR DE TOEKOMST VASTE LOCfiTIES TE BEPftLEN VOOR 
HET HOUDEN VAN CLUB-BI JEENKOMSTEN. TENZIJ ZICH ONVOOR- 
ZIENE OMSTANDIGHEDEN VOORDOEN, ZIET HET ER THftNS ALS 



JftNUftRI 
MAART 
ME I 

SEPTEMBER 
NOVEMBER 



KROMMENIE 

AMERSFDORT 

GELDROP 

HEEMSTEDE 

ftMERSFOORT 



HET BESTUUR IS OVER I GENS WEL GEINTERESSEERD IN MOGELIJK- 
HEDEN VpOR^HET HOUDEN VftN CLUB-BI JEENKOMSTEN ELDERS 
IN HET LAND. WIE OP DE HOOGTE IS VftN GOEDE EN GOED- 
KOPE ACCOMODATIES WORDT VERZOCHT DE VOORZITTER DAAR- 
VAN IN KENNIS TE STELLEN. 
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DRs NIEUUf REDftKT I E — <=ki:>RES ! 
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